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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 


oA yet ahd FOR ANY ERRORS THAT MAY NAPPEAR IN 
THIS MANUAL 


THE SOFTWARE DESCRIBED salen THIS DOCUMENT IS 
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R UNDER A LICENSE FOR USE 
COPIED 


ON A SINGLE COMPUTER SYSTEM AND CAN BE 

(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
GTHERWISE BE PROVIDE IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBLILTY FOR THE USE OR RELIABILITY OF ITS 
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


DIGITAL. 


COPYRIGHT (@) 1977,1978 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THIS PROGRAM IS er hoe TO SEQUENTIALLY TEST 

THE DATA FORMATTING FUNCTIONALITY OF THE TMO3 

FORMATTER. EACH TEST WILL ATTEMPT TO ISOLATE FAILURES 

TO THE MODULE LEVEL AND PROVIDE PRINTOUT INFORMATION 
WHICH WILL IDENTIFY THE FAILING MODULE. 

THE LEVEL OF FAULT Se IS POSSIBLE BECAUSE OF 

T™O3- THE STRUCTURE AND ITS MAINTAINENCE MODES. 


REQUIREMENTS (HARDWARE ) 


ANY PDP=-17 PROCESSOR 

8k OF CORE 

CONSOLE TTY 

yee MAGTAPE CONTROLLER 
MASSBUS CONTROLLER (RH) 

TE16 OR TU77 MAGTAPE TRANSPORT 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE, 
STARTING PROCEDURE 


HERE ARE TWO (2) STARTING ADDRESSES THAT MAY BE USED: 
500 eB) AND 210(8). 


A. 200(B): STARTING AT THIS ADDRESS WILL CAUSE A PROGRAM 
aE hae HEADER TO BE PRINTED BEFORE TESTING 


B. 210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE 
ee tee HEADER AND IS THEREFORE GENERALLY 
O BE USED FOR RESTARTS RATHER THAN INITIAL START 


NOTE : 333 ALSO SFC 5. CONSOLE otc SETTINGS 
YPE “C TO RESTART PROGRAM (@200) 
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4.1 


lr THIS PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODES 
DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED. THE SOF TWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 

IF IN ACT11 CHAIN MODE. NO OPERATOR INTERVENTION IS REQUIRED. 


**EXCEPTION: IF THIS PROGRAM IS LOADED VIA TMDP CHAIN MODE _THE 
PROGRAM WILL NOT TEST TMO3S DRIVE #0, een SLAVE #0. 
**NOTE: IN OREDR TO CHANGE THE + oe SETTING OF THE SOFTWARE 
SWR, SET LOC: 176(SWREG:) TO THE DESIRED SETTING. 


**NOTE : 3 RUN_IN CHAIN MODE, THE DEFAULT SLAVE TYPE ~ OR TU77) 
MUST BE SET. SET LOC: 602(SLVTYP:) TE16=0; TU77=1 


SAMPLE START AT 200 


NOTE: DEFAULT RESPONSES ARE SHOWN IN ANGLE ecis it <>, 
OPERATOR RESPONSES ARE SHOWN IN PARENTESES AND 
MEMORY LOCATIONS CONTAINING THE DEFAULT ARE “Sound IN 
SQUARE BRACKETS []. 


PARAMETER REQUEST: <DEFAULT> (RESPONSE) C[LOCATION:) 


TMO3=TE16/TU77 CONTROL LOGIC TEST PART II (DZTEB-B) 
***ASSURE TAPE IS AT BOT#** 
TYPE “C TO RESTART 


REGISTER START: <172440> (CR) 

VECTOR ADDRESS: <224> (CR) 

T™O3 DRIVE: <O> (CR) 

TE16 SLAVE: <0> (CR) r : 

SLAVE TYPE (O=TE16,1=TU77): <0> (CR) CSLVTVe: 7 
IF THE SOF TWARE a 1S INVOKED: 

SWR = <0Q0000> NEW = (CR CSWREG: J 
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CONSOLE SWITCH SETTINGS 


CONTROL : 


1) CONTROL G <*G@>; 
SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH SETTINGS. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXK IS THE OCTAL CONTENTS OF THE SOFTWARE SWR. 
AFTER "NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) TYPE AN OCTAL NUMBER TO BE LOADED INTO THE SOFTWARE SWR. 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


CONTROL A <*A>; 
ALTERNATES THE. SWITCH REGISTER FROM HARDWARE TO SOFTWARE & VICE VERSA. 


CONTROL C <*C>; 
RESTART PROGRAM AT 200 


4) CONTROL U <“*U> 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


ALL SWITCHES ARE USED (0-15) AND THE a OR DEFAULT, RUN 
1S DONE WITH ALL SWITCHES SET TO ZERO ( 
ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY TIME. 


SW15:  1=HALT ON ERROR 
=CONT INUE 
SwW14: =LOOP ON ERROR (SCOPE) 
=CONT INUE 
Sw13: =DO NOT PRINT ERRORS 
O=PRINT ALL ERRORS 
SWi2: | 1=DO CONTINUOUS CYCLE 
O=HALT AT END OF PASS 
SwW11: =INHIBIT ITERATIONS 
=ITERATE EACH TEST ITS ASSIGNED AMOUNT 
SW10: =HAL T AT END OF CURRENT TEST 
=CONTINUE TO NEXT TEST 
Sw8 : NHIBIT WRAP AROUND DATA CHECK 
O DATA CHECKS 
Sw7: NHIBIT WRAP AROUND STATUS CHECK 
O STATUS CHECK 
Sw6: ELECTABLE WRAP DATA PATTERN ‘IN SINGLE TEST) 
UTO PATTERN 
Sw5=-0: ECT INDIVIDUAL TEST ** QO=DO Aic TESTS 
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6. ERROR PRINTOUTS 


ERROR PRINTOUTS WILL APPEAR IN TWO FORMS, ONE FOR THE 
CONTROL LOGIC TESTS AND ANOTHER FOR THE DATA TESTS. 


CONTROL LOGIC Pe gb WILL CONTAIN A HEADER WHICH CALLS 
TEST ER, CTION BEING TESTED, AND THE SUSPECT MODULE, 
THE SECOND LINE WILL CONTAIN INFORMATION 


LINE FOUR WILL PRINT THE ITERATION NUMBER WHEN APPLICABLE. 


DATA TESTS WILL PRINT A HEADER CONTAINING THE TEST 3 ie 

AND A DESCRIPTION OF THE WRAP AROUND FUNCTION UNDER TEST 
FOLLOWING THE HEADER WILL BE A LIST OF THE MAJOR REGISTERS 
WITH THE EXPECTED AND ACTUAL VALUES. ANY BAD DATA WILL BE 
PRINTED (PER CHARACTER) FOLLOWING THE REGISTER INFORMATION OR 
FOLLOWING THE HEADER IF NO STATUS ERRORS WERE ENCOUNTERED. 


5. THE FOLOWING ARE TWO EXAMPLES OF ERRORS DETECTED BY THE WRAP AROUND 
DATA TESTS. NOTE THAT EACH WRAP AROUND TEST MAY BE ACCOMPANIED 
BY EITHER A STATUS ERROR OF A DATA ERROR OR BOTH. 


Ee 4 tp 1: WRAP 3, NRZ, NORMAL, ODD 
CS1 EXPT 004270 RCVD 144270 
CS2 EXPT 000100 RCVD 000100 
DS EXPT 010600 RCVD 150600 
ER EXPT 000000 RCVD 000100 


THIS MESSAGE INDICATES BAD STATUS OF VPE (BIT 6 OF ER) 


OG! a 3: WRAP 2, NRZ, NORMAL, ODD 


C 

AD DAT 
N:0 
"1 

1 


17111 
11011 


L 
B 
Gr 
B: 
CN 
G: 
B: 


“00000000 

00001000 
THIS MESSAGE SHOWS THAT DATA RECEIVED WAS NOT AS EXPECTED. CHARACTER 
ZERO (CN: 0) SHOWS THAT BIT TWO (2) WAS DROPPED, WRILE CHARACTER 
rig (CN: 10) SHOWS BIT THREE (3) HAS BEEN PICKED UP 


EXPECTED DATA (GOOD) 
B: = ACTUAL DATA (BAD) 
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OPERATION 


THE PROCEDURES FOR OPERATING THIS ee ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS 


1. LOAD ADDRESS 200 OR 210 
2. SET SwITCHES FOR DESIRED TEST CYCLE 
3. PRESS START 


ALL ge SWITCHES ARE DYNAMIC ANL MAY BE CHANGED 

T ANY TIME. THE NORMAL OPERATING SCQUENCE IS ALL SWITCHES 
DOWN (0). THE TEST WILL TAKE APPROXIMATELY 3 MINUTES 10 
RUN; HOWEVER, IF ITERATIONS ARE INHIBITED a's 1) THE TEST 
WILL RUN IN ABOUT 30 SECONDS. THE END OF PASS IS 

ad A By PRINTOUT STAT:NG END OF PASS, AND THE NUMBER OF 


SINGLE TEST SELECTION: (SWO-SW5) 


WHEN SWO-SW5 ARE SET TO ZERO (00), THE SCHEDULAR WILL 
EXECUTE ALL TESTS 44 SEQUENCE. IF SWO-SW5 ARE SET 

TO SOME SPECIFIC TEST NUMBER_ THEN THAT PARTICULAR TEST 

ONLY WILL BE EXECUTED UNTIL THE TEST SELECT NUMBER IS CHANGED. 

WHEN YOU WISH TO SELECT A PARTICULAR TEST, SET SW10 TO 

A ONE (1) IN ORDER TO STOP AT THE END OF THE CURRENT TEST BEFORE 
SELECTING A DIFFERENT TEST NUMBER. YOU MAY SELECT THAT NUMBER IN 
ANY DIRECTION (HIGHER OR LOWER) BECAUSE EACH TEST IS SELF CONTAINED. 


WRAP AROUND DATA PATTERNS MAY BE SELECTED VIA SW6 WHEN IN 

SINGLE TEST MODE. A_TELETYPE REQUEST IS MADE FOR THE DESIRED DATA 
PATTERN WHENEVER SWITCH TEN (SW10) AND SWITCH SIX (SW6) ARE SET TO 
A ONE (1) WHILE ONE OF THE WRAP TESTS IS SELECTED IN SwWO-SW5. 
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8. SUBTEST SUMMARIES 


**NOTE: FOR TESTS 1-15** 


FOR THE MOST PART, THIS DIAGNOSTIC TESTS gl hy 

AREAS OF THE TMO3 LOGIC INDEPENDENT OF THE TE16/TU77. HOWEVER 
THERE ARE A ae 4 SIGNALS es ARE REQUIRED FROM THE TE16/TU77 
TO COMPLETE THE TESTS, AND AT LEAST ONE CASE WHERE TE16 
FAILURES INTERFERE WITH THE TESTS. THE KNOWN CASES ARE 
LISTED HERE AND SHOULD BE CHECKED AS PART OF THE DEBUGGING. 


- MOL(SB)L: REQUIRED TO ENABLE CLOCK 
- CLOCK(SB)L: REQUIRED TO GENERATE ACCELERATION AND SHUTDOWN. 


. RSDO(SB)L: SHOULD NOT OCCUR DURING WRAP AROUND TESTS, BUT WILL 
INTERFERE WITH THEIR OPERATION IF CAUSED BY A FAILURE 
SUCH AS A GROUNDED OUTPUT FROM THE GO56. 


LOGIC TEST 1: WRP3, NRZ, NORMAL, ODD (BIT FIDDLER READ) 
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PROGRAMMED SEQUENCE : 


TAPE CONTROL it ic IS LOADED WITH DENSITY 3, FORMAT 14, 
ODD PARITY WRP3 IS LOADED_IN MAINT. REGISTER. READ FUNCTION 
IS LOADED, EXECU TING WRAP3 CONSISTS LOADING DATA CHARACTERS 
INTO MAINT. REGISTER DATA FIELD, WHERE THERE ARE MULTI- 
PLEXERS TO BIT FIDDLER, MM CLK IS TOGGLED TO CREATE RDS. 

THE BIT FIDDLER TRANSMIT DATA ACCESS MASSBUS DATA LINES. 
WHEN ALL _THE DATA HAS BEEN TRANSMITTED AN EOR CLK IS 
TRANSMITTED TO N REGISTER WHICH BRINGS OPERATION TO A CLOSE. 


LIKELY FAULT LOCATIONS: M8906, M8905-YB, MASSBUS P=-LINES 


CIRCUITS PRINT REFERENCES 
MASSBUS CHAR. ASSEMBLE BF5 

CLK. GENERATOR BF 2 

MAINT. REGISTER DATA FIELD MR2, MR3 

RDS GENERATION MR5 


; 
CZ TEBBO ore ere + | T MACY11 30A‘1052) 21=DEC-78 13:12 PAGE 9 


I] 
CZTEBB.P11 15-NOV-78 13:16 


LOGIC TEST 2: WARP3, PE, NORMAL, ODD 


JUST LIKE TEST 1 EXCEPT FOR DENSITY BI7S. 


LOGIC TEST 3: WRAP2, NRZ, NORMAL, ODD 


WRAP2 IS BIT FIDDLER WRITE. MM CLOCK IS MULTIPLEXED INTO 
WRT CLK SO THAT IT FORMS WRT STROBE. THE OUTPUT OF THE 
BIT FIDDLER IS CLOCKED yy THE DATA FIELD OF THE MAINT~ 
ENANCE REGISTER. SET UP CONSISTS OF MOVING NRZ, NORMAL 
FORMAT, ODD PARITY TO ti DESCRIPTION MAINT. REGISTER 

IS LOADED WITH WAM2 WRITE COMMAND IS ISSUED. AFTER THE 
ACCELERATION DELAY, MM CLOCK ARE GENERATED UNTIL ALL THE 
DATA HAS BEEN CLOCKED. SEQUENCE IS COMPLETED BY LOADING 
MANTENANCE REGISTER WITH EOR CLR. THE SEQUENCE IS REPEATED 
WITH VARYING DATA PATTERNS. 


LIKELY FAULT LOCATIONS: M8906, M8905-YB, M8933 


PRINT REFERENCES 


DDLER CHAR UNPACK 


I 

IDDLER DATA REQUEST 
TRB. 

- REG. DATA FIELD 
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LOGIC TEST 4: WRP2, PE, NORMAL, ODD 


me 


THE TEST IS EXACTLY LIKE TEST 43 EXCEPT THAT PE E WRT CLK 
TIL THE PE WRITE LEN TROL CIRCUIT 
PREAMBLE . 


OE HAPPEN 
HAS CLOCKED THROUGH THE 
CIRCUITS PRINT REFERENCES 


(IN ADDITION TO TEST 44) 
PE WRITE CONTROL 


LOGIC TEST 5: WRP1, NRZ, NORMAL, ODD 

THIS TEST IS EXACTLY LIKE TEST 43 EXCEPT THE WRITE BUFFER 

(TCCM2) IS MULTIPLEXED TO THE MAINTENANCE REGISTER. 

LIKELY FAULT LOCATIONS: M8933, M8934 (CRC GENERATOR) 
PRINT REFERENCES 


WRITE BUFFER 
CRC GENERATOR 


LOGIC TEST 6: WRAP1, PE, NORMAL, ODD 

IN PE MODE BOTH THE PREAMBLE AND POSAMBLE ARE CLOCKED 

THROUGH THE WRITE BUFFER IN ADDITION TO PHASE ENCODED DATA. 

LIKELY FAULT LOCATIONS: M8932 (WRITE CONTROL STATES), M8933 
PRINT REFERENCE 


WRITE BUFFER 
WRITE CONTROL 
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LOGIC TEST 7: WRAPO, NORMAL, ODD 


MY CONSISTS OF A WRITE OPERATION IN WHICH THE OUT- 
THE WRITE DATA BUFFER IS MULTIPLEXED TO THE READ 
A_INPUTS, CHECKED AND LOADED INTO THE MAINTENANCE REG- 
ISTER FOR RETRIEVAL BY THE "AND HAPPEN 


RAT AG ANNOUNCING WHEN 
NEW CHARACTER HAS BEEN LOADED INTO THE MAINTENANCE REGIST ER. 
IN PE MODE Ay! OTHER CHARACTER IS READ TO ALLOW SUFFICIENT 
PROCESSOR LOOP TIME. IN NRZ WRAP 0 IS EXPECTED TO PRODUCE 


LRC ERRORS BECAUSE THE TMO3 DOES NOT WRITE THE LRC CHARACTER. 


LIKELY FAULT LOCATIONS: M8934, M8933 
PRINT REFERENCES 


CRC GENERATOR 

CRC CHECKOUT 

CRC, CRC STROBE 

a t es MULTIPLEXERS 


L 
CRC READ TIMING 
SHUTDOWN CIRCUITRY 


LOGIC TEST 10: WRPO, PE, NORMAL, ODD 


REPEAT OF TEST 7 IN PE MODE. 
LIKELY FAULT LOCATIONS: M8901, M8932, M8933 


PRINT REFERENCES 


DATA DISCRIMINATOR DS2, DS4, DSE 
PHASE LOCKED CLOCK DS3, DS5, DS? 
SKEW BUFFER 083. DS5, DS7 
PE WRITE MAJOR STATES PE3 

PE READ MAJOR STATES 

WRAP 0 CIRCUIT TO BLOCK RLT RDS 

DESKEW BUFFER READ COUNTER 


SEQ 0011 
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LOGIC TEST 11: CORE DUMP WRITE, WAM2 


ot OF TEST 3 EXCEPT BIT FIDDLER OPERATES IN CORE DUMP 


LIKELY FAULT LOCATION: M8906 


LOGIC TEST 12: CORE DUMP READ, WAM3 
38 id OF TEST 1 EXCEPT BIT FIDDLER OPERATES IN CORE DUMP 


LIKELY FAULT LOCATION: M8906 


LOGIC TEST 13: EVEN PARITY WRITE - WAM! 


REPEAT OF TEST 5 EXCEPT EVEN PARITY IS SPECIFIED. 
LIKELY FAULT LOCATION: M8933 


LOGIC TEST 14: EVEN PARITY READ: WAMO, 
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LOGIC TEST 15: READ REVERSE, WAM3 (M8906) 


REPEAT OF TEST 2 EXCEPT READ REVERSE COMMAND IS ISSUED. 


LIKELY FAULT LOCATIONS: M8908, M8909 


THIS TEST SIMULATES A BAD TRACK ON TAPE tice thar " A CRC ERROR & . 
SUBSEQUENT CORRECTION OF DATA IN THE FAILING TRACK 
THE TEST PROCEEDS THROUGH THE FOLLOWING STEPS: 


‘A:WRITE DATA USING WRAP 0 
B:REWRITE DATA WITH we BITS IN ONE TRACK ALTERED USING WRAP 4 
C:READ REVERSE USING WRAP3 
D:REWRITE DATA_AS IN STEPB USING WRAP4 
AT THIS POINT THE DATA “wg BACK HAS BEEN CORRECTED TO MATCH 
THE DATA WRITTEN IN STEP 
pete STEPS A-D ABOVE FOR EACH TRACK 
F:REPEAT STEPS A-E ABOVE FOR ALL 1°S,ALL O'S & 
125125 DATA PATTERNS. 


LOGIC TEST 17: CRC ERROR CORRECTION 


THIS TEST SIMULATES MULTIPLE FAILING TRACKS & TEST THAT 
NO ERROR CORRECTION IS PERFORMED. THE TEST SEQUENCE IS THE 
aoe oe. TEST 16 STEP A=-STEP E. THE DATA PATTERN USED IS 


LOGIC TEST 20: READ REVERSE WAM3 NRZ 


REPEAT OF TEST 15 — (SEE ALSO TEST 2) EXCEPT THE TEST IS 
PERFORMED IN NRZ MODE 


-LIST BIN,LOC,SEQ 
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- TITLE CZTEBBO TMO3-TE16/TU77 CLT II 
CONTROL LOGIC TEST PART I] 
794B-MC 


FEB 77 


3J.G. ADAMS 
REVISED MAY 1978 BY J.G.ADAMS ;++8 CHANGED MODULE TYPEOUTS TO 
+48 REFLECT TMO3S REGISTER SET 
++B ADDED TU77 TEST CAPABILITY 
am is ” pebdahsommmatic SCATCH, SSAVE, SRESTORE . SCHAIN, SCHNMODE 
S 


LIST Me 
-ENABLE ABS,AMA 


DSA SIA AISIUIVIV 
BELFER ESOS oe | 


CONSOLE SWI TCHESteeeeenes 
isw15: 
‘Swi6: 
“Sw13: 
iSw12: 
‘Swit: 
;sw10: 


SEeaeTeR eS 


=INAIBIY — 

ITERATIONS 

T AT END OF EACH TEST 
NUE 


WRAP DATA CHECK 
WRAP DATA CHECK 
WRAP STATUS CHECK 


CK 
ELECTABLE WRAP DATA PATTERN (IN SINGLE TEST) 
; nh Seren 
7SWO-5: 00= AcL TES 


SwO-5: TEST NUMBER 
;1F HARDWARE SwWR ah 1005 = 177777 OR NOT AVAILABLE USE SOFTWARE SwWR 


fe 


NNN SG 
WN —O 
S 
“~ 
—s 


88 
: 
v 
un“ 
— 
Pr 
a 
“A 
oO 


5 
5 
5 
5 
5 
5 
5 
5 
5 


Aa) 
& NNYNN 
oe oR 
NO eereeureant 
min i UU 
—-Puno2Z2v 
a Oo 
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3TE16/TU77 REGISTER BITSeeeeneeee 


215 314 313 312 311 310 ;09 ;08 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 ; 
£99060008000505 00005 0005000590050 159050005 0905008905500 
2SC 2 TRE; sMCP; SPR; pe :PSL; sA17; sA16; sRDY; IE 2 FUN: FUN; FUN; FUN; FUN; GO ; 


#9003300000001500050013000300050005000500050005000500080005 00050000 


: COUNT 3 
DO0000000000000000000000 0000000000000 


: ADDRESS : 
0000 000000000000 000000 
: COUNT ; 
£91000020000000200002002000000 22000009020 0200200 0000000000 

T;WCE ; UPE ; NED; NEM; PGE ; ZMF 2 MOP: :0R IR ;CLR;PAT;BAI;U2 ;U1 ;U0 ; 


£00005 0050000000 0KGIOOIIOO GIOTTO ATOR IDIOT 
sATA;ERR;PIP; MOL ;WRL;EOT; SPR; DPR; DRY; SSC; PES; SDN; IDB; TMK;BOT; SLA; 


#0032002 709150500000 Q00IQQ TOIT IIIA TOOL IIIT 
E; | UNS; ; OPI; sDTE; sNEF ; CS sPCE; sNSG; PEF ; INC; DAT; FMT; s CNT; ; ROR; ILR; ILF; 


311M: 7 LRC; VPE ; BPE ; 
#0083000800013000090015000000030005000500950001000500 0500500010000 


> SUMMARY : 
FUL terete erica senenencunen rman 
> CHARACTER : 
STUTEENTTERETETELITETTTTTTTTTTRTTTTETTTTTTITTTTTTTOTTTTTETTTTTTT 
: BUFFER : 
# OX XXXII HHA IOOQIA IIHT 
37:6:5:4:3:2:1:0: P SCLKICLK: 6:3:2:1:60: 
isc easra. sassy aearmannciemcammmmmteramtanne’ 
: j : 3 Vs ; 
: TYPE SPR: 

#9200005 01D AIAN 
rd . oe 

NUMBER 


ROOKIE 
sACL; FCS; SAC; s ENA; SPR; a “DEN; DEN; es "e3 FMT; i Bxn: ey ae 


¢ wodduoodivoudiocediunnduondududvuudoooduoudusoduanduoaioondosodound 
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I 
6 SEQ 0016 


REGISTER EQUI VSeeteeenene 


sACT11 HOOK seeeeennnee 
$SvPC=. :SAVE CURRENT LOCATION CTR 


24 
-WORD  SENDAD 3SET LOCATION 46 


-WORD 0 SET LOCATION 52 = 0 
- =$SVPC RESTORE LOCATION CTR 


ZTTY INTERRUPT VECTORe«xenxannne 


- =60 
-WORD ITINT ;TTY INTERRUPT HANDLER ADDRESS 
-WORD 340 PRIORITY LEVEL 7 


sSOFTWARE SWITCH REGISTERsseaennnnne 
cuss? IF HARDWARE SWR = 177777, OR NOT AVAIL. 


“WORD 0 


TSTART ADDRESSeeeennennee 
001176 ime” start PROGRAM START 
-ecehassles  yamesenunentanante 
001730 IMP STZ 
7™MO3 INTERRUPT VECTORe*seeneene 
7224 


MTINT ; TAPE INTERRUPT HANDLER ADDRESS 
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675 

675 000510 2510 
or? sMASS BUS REGISTER EQUIVS**xexannae 
679 172440 172440 
680 
681 
683 
685 


D2 2BBQSRIGSEES 


172472 
ILLEGAL FUNCTION CODES 


-e 
r- 
” 
~ 
. 


S CONSTANTS &eeeareee 


177776 :PROCESSOR STATUS 
SWITCH REGISTER 
TTY READER STATUS 


FER 
s INDICATES SLAVE TYPE (0/1 = TE16/TU77) 
: ITERATION AMOUNT 

000224 > 224 ; INTERRUPT VECTOR(RH) 

172440 : 172440 2 STARTING REGISTER ADDRESS 
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zFLAGS AND COUNTERS*#eeennane 
sNOTE ALL FLAGS AND COUNTERS ARE CLEARED ON STARTUP. PUT ANY 
nO OF rae BETWEEN STFLGS (START OF FLAGS) AND ENDFLG 


CZTEBBO TMO3-TE16/TU77 CLT I 
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STFLGS: 
TOB: 


0 
0 
0 
: 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
¢ 


000752 0 
000754 000000 
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T TMO5-TE16/TU77 CLT 
CZTEBBO TMO3-TE16/TU77 CL : SEQ 0019 


CZTEBB.P11 15-NOV-78 13: 


000756 
000760 
000762 


I 
6 


eleolelelelealelelelealelelaleleola) 


t PASS COUNTER 
: WORD DATA CHECK FLAG 0/1 = CHECK/DO NOT CHECK 
:CRC CORRECTION TEST IN PROGRESS 


: 


SEXPT WRAP STATUS*«xxt«® 


sDATA PATTERN GENERATORS***** 


005136 : DAT] sALL ONE BITS 

005156 : sALL_ZERO BITS 

005162 : sALTERNATING ONE/ZERO BITS 
005170 2 sALTERNATING PARITY CHARACTERS 


sCORE DUMP PATTERNS**«x«8® 


Qo 00 Co Oc 00 Co Co 
Le ee ee ee ee ee 
o----- OP SS UNU' 
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LOGIC TEST ENTRY TABLE *#«xannnnn 
TSTTBL: 


NN 
NO 


“N 


SSSSE 
ar 


001 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


DD eB ed ed ed eed dd wd od dd 
kl Dd ed ed od od od od 
ABRMOASNO NOAKAKNOAHKLMO —M 

coe al el el el eel el sel ll ed el lll led oe ol cael ed al ad ed el el ed et = | 
+h tt st st st tt 


NON -3 2 RR R 2 2 Ss os 
COONNAOQMAS SWAIN - OO 


TADX: «WORD TEND 
000020 TLAST: .WORD 20 s CONTAINS # OF TESTS 
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] 
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000500 
000004 


000006 
001236 
000006 
177777 


000176 


014651 
013120 


000606 
012444 
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000004 
177336 


000570 


000570 


000041 


014042 


#500, SP 


a6 
#177777 ,ASWR 
2$ 


3$ 

(SP)+, (SP) + 
ASWREG , SWR 
(SP) +, a46 
(SP) +, a44 
PC)+ 


46,0441 
5$ 

4MSG62 ,R4 
PC, TTOUT 


4MSG1,R4 


vc °T,RO 
MMTINT, (RO) + 


EVEN 
;PROGRAM START AND HOUSEKEEPING***exennne 


SET STACK POINTER 
;SAVE ERROR TRAP 


SET TIME OUT TRAP TO GO TO 1$ 
USE _SOFTARE SWITCH IF SWR = 177777 
:OR TIMES OUT 
3 de ae 3 o HARDWARE SWR 
eT os STA 

ET S$ “Fo o> OF SOFTARE SWR 
RESTORE ERROR T 
7 ¢ CLEAR CHAIN INDICATOR 

IN MODE INDICA 


TOR 
7:1/0 = CHAIN/NOT CHAIN MODE 
; BRANCH IF IN DUMP MODE 


+ ¢ INVOKE SOFTWARE SWR 
T_CHNFLG = CHAIN MODE 
::G0 TO CHAIN ADDRESS 


BRANCH IF NOT LOADED VIA TMDP 
sADVISE USER TO REMOVE MEDIA FROM UUT 


;PRINT TITLE 
rr dr IF a MODE 


ELSE 60 START TEST 
[D0 NOT PRINT TITLE ON RESTART 


REQUEST REGISTER ADDRESS 


PRINT CURRENT ADDRESS 
SET ADDRESS SAVE LOC 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 

SET LOWER CIMIT 

[GO GET RESPONSE 


REQUEST VECTOR 
;PRINT CURRENT VECTOR 


SET ADDRESS SAVE LOC 
2 SET as 


GET VECTOR 
;LOAD INTERRUPT ADDRESS IN VECTOR 


SEQ 0021 
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012710 #340, (RO) ;LOAD PRIORITY 

0137 REGS ,RO :GET START OF REGS 
16,R1 ;SET NUMBER OF REGS 
#C1,R2 :GET START OF TABLE 
RO, (R2)+ ‘BUILD TABLE 
#2,R0 ;BUMP ADDRESS 
R1 4 IF DONE 

F NOT: BR 


—_ 


gegageses - 


6$ 
ASTFLGS ,R2 
#ENDFLG-STFLGS, RO GET # OF FLAGS TO CLEAR 
FORM COUNT 
CLEAR FLAGS + COUNTERS 


REQUEST TMO3 DRIVE # 


:GET fg DRIVE 
SAND TYPE IT 

:TTR ROUTINE RETURNS DRIVE TO (R5) 
SLIMIT RESPONSE " 1 CHARACTER 
BETWEEN 0 AND 


GET RESPONSE & PUT IN DRVN 
REQUEST SLAVE # 


:GET fer SLAVE # 
SAND TYPE IT 


;TTR ROUTINE RETURNS REPONSE TO (R5) 
[LIMIT RESPONSE TO 1 CHARACTER 
BETWEEN 0-7 


000000 40, 
012576 PC,TIR ;GET RESPONSE & PUT IT IN SLVN 


014745 AMSG64 ,R4 REQUEST SLAVE TYPE 
PC, TTOUT 
SLVTYP,R3 GET CURRENT Pe TYPE 
PC,OCTP : TYPE CURRENT VALUE 
ASLVTYP,RS5 TTR ROUTINE STORES RESPONSE IN (R5) 
#2,R1 alc aioe TO 1 CHAR 
LIM 


LIMIT 
‘GET RESPONSE & STORE IN SLVTYP 


#500,S° SET STACK PTR 
RDRVF 


PCNTR CLEAR READ REVERSE FLAG 
0 CRCFLG SET CRC_FLAG = CRC NOT IN PROGRESS 
013700 PC,GTSWR GET SOFTWARE SWITCHES 
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; TEST SCHEDULAR**###800% 
052777 000100 176610 #100,aTKS SET KEYBOARD IE 817 
CLR = WPGFL. CLEAR WRAP PATRN FLAG 
SCLEAR SINGLE TEST FLAG 


BRANCH _IF SINGLE L$ SELECTED 
G0 SELECT SINGLE TEST 
; BRANCH IF NOT IN CHAIN MODE 


000622 MO INITIALIZE DRIVE # 
000662 NXTDRV: 3 PINITIALIZE SLAVE # 
176464 1$: MO :2INIT CONT en 
DRVN 7;STEP DRIVE # 
000622 2 sEXIT IF ALL +i oe TESTED 
$DONE OR AVAILABILITY 
176442 MO ° ;:LOAD DRIVE # 
2 ¢ACCESS DRIVE 
176430 + Naa taaies Hy 4 DRIVE NON EXISTANT 


BN ( 

NXTSLV: SLVN ii STEP SLAVE # AND BRANCH 
BN 1$ ;;IF NOT SLAVE 0 

DRVN ::BRANCH IF NOT DRIVE # 0 


1$ 
000041 * amat : ;BRANCH IF NOT TMDP 


SLVN :iSTEP TO SLAVE # 1 
000662 1$: MP #10, SLVN SBRANCH IF ALL SLAVES TESTED 
XTDRV SIFOR AVAILABILITY 
176402 SLVN arc ; LOAD 
176370 #2000. apt 
*=PRESENT (SPR = 0) 


NXTSLV 
000740 : ATSTTBL,LTADD 
000740 : #4 ,LTADD 
000712 : LTADD, ITRLP 
000712 #2,1TRLP SET ITERATION ADDRESS 
000616 HDRFL :CLEAR PRINT HEADER FLAG 
176530 ata +-% Rng jl TO TEST 


MP (R 
002000 176350 2 #2000, aSWR igre ke HALT ON TEST 
TSCD3 ; IF : BR 


994 
996 
998 
999 
000 
001 
002 
003 
004 
005 
006 
007 
008 
009 


000776 :CLEAR WRAP DATA GENERATOR FLAG 
000736 : 7SE IF SINGLE TEST 
;1F NOT: BR 


176326 aswR 
177700 #7700, RO ;MASK TEST NUMBER 
:1F SO: BR 


TScD 

000001 000736 : #1,STFLG ;SET SINGLE TEST FLAG 

001174 TLAST ,RO >SEE IF EXCEEDED TESTS 
ag IF SO: BR 


RO SET TABLE MODIFIER 
001066 000740 MOV 47 STTBL,LTADD 
000740 RO,LTADD SET TEST POINTER 


elelelelelelelelele) 


td 6k ed od = od od ots od 6 2) 2d 6 dd od eo 
a Ss ss Hr 1 


SODBNAULSWN-O 


Oo 
N 





2 
CZTEBBO TMO3-TE16/TU77 CLT I] MACY11 30A(1052) 21-DEC-78 13:13 PAGE 24 
CZTEBB.P11 T5-NOV=-78 13:16 SEQ 0024 
BR 
001266 TEND: pt ;BRANCH IF IN CHAIN MODE 


014521 SDONE : 
PRINT END OF PASS 


013246 RS ocTP ;PRINT PASS NUMBER 


;DELAY Wile FOR 
BN TTY TO FINISH 
000042 ene [GET ACT11 RETURN ADDRESS 


R BRANCH IF NOT ACT11 
SENDAD : : PC, (RO) 


HERE: NOP 
001260 T CHNFLG BRANCH IF IN CHAIN MODE 


TENDX 
010000 176172 #10090 ,aSwR SEE IF HALT ON PASS 
TENDX NOT: BR 


H 
001014 $ PCNTR ;BUMP PASS COUNTER 
001754 J TSCD sRESTART 
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: THESE TESTS CHECK DATA FORMATTING 
AND TRANSFER THROUGH THE TMO3 WRAP AROUND MODES 


;LOGIC TEST 1: WRAP 3, NRZ, NORMAL ODD **««« 
#4270,WCS1 :SET EXPT CS1 
#1000 CS2 35 

0660, WDS 


#0. 
matt, EMADDR 
#1700,UDES 


PATRN 
#LT1B,SCOLP 
WAMS 


ejejlejejlelele) 
Beene 
WONAUSWI 


id 


PATRN :BUMP PATTERN POINTER 
#4 .PATRN sSEE IF DONE 

LTiB :IF NOT: BR 
PC = £60 SEE IF ITERATIONS 


CLEAR READ REVERSE FLAG 
TSCD2 SRE TURN TO SCHEDULAR 


;LOGIC TEST 2: WRAP 3, PE, WAL, ODD«««xx 


SERRZEE 


e 


as kd ad ad od od I 


S 
3S 


Se : #4270 ,WCS1 #SET EXPT CS1 
#100,WCS2 
#10640 ,WDS 
#0,WER 
AMSLT2,EMADDR 
#2300, UDES 
LTIA 


etototota) 
o 

“ N 
VINE 


SSET PE, NORMAL, ODD 
ZEXECUTE TEST SEQUENCE 
;LOGIC TEST 3: WRAP 2, NRZ, NORMAL, ODD*«*«« 


#4260, west :SET EXPT CS1 

#100,WCS2 [SET EXPT CS2 

#10600, WDS [SET EXPT DS 

#0, ‘SET EXPT WER 

mers. EMADDR :SET HEADER 

# 700, ODES [SET TO NRZ,.NORMAL, ODD 
‘POINT TO PATTERN 0 

WLTSN, SCOLP ‘SET SCOPE ADDRESS 

PC. M2 =GO DO WRAP 2 


‘BUMP POINTER 
001000 4 PAT SEE wif DONE 


i1F : BR 
:GO SEE. IF ITERATIONS 
;RETURN TO SCHEDULAR 


1076 
1077 
1078 


 BESSZSRSRERERESS 





N 2 
CZTEBBO TMO3-TE16/TU77 CLT MACY11 30A(1052) 21=DEC-78 13:12 PAGE 26 
CZTEBB.P11 15=NOV-78 13: SEQ 0026 


g | 


;LOGIC TEST 4: WRAP 2, PE, NORMAL, ODD««««« 


SESz 


#4260 ,WCS1 :SET EXPT CS1 
#100,WCS2 ; 
#10640 ,WDS 


#0,WER 
#MSLT4 ,EMADDR 
#2300, UDES ‘SET PE, NORMAL, ODD 
LT3A :GO EXECUTE TEST SEQUENCES 
;LOGIC TEST 5: WRAP 1, NRZ, NORMAL, ODD*«««« 

#4260, wCS$1 :SET EXPT CS1 

#100,WCS2 

10660, WDS 

#MSLTS,EMADDR 

#1700, ODES SET NRZ, NORMAL, ODD 

: ‘POINT TO PATTERN ZERO 

000710 MO 198, SCOLP ;SET SCOPE ADDRESS 


DO WRAP 
I PATRN “BUMP POINTER 
001000 he SEE IF DONE 


:1F NOT: BR 
7GO SEE IF ITERATIONS 
[RETURN TO SCHEDULAR 


;LOGIC TEST 6: WRAP 1, PE, NORMAL, ODD****« 


a3 Y 4 4 


lelelelelelelolo) 
883s 


: PC ,PPGEN :GO GENERATE PRE/POSTAMBLE 
001022 #4260,WCS1 sSET EXPT CS1 

#100, WCS2 ‘SET EXPT CS2 

#10640, ,WDS :SET EXPT DS 


0 :SET EXPT WER 
#MSLT6,EMADDR :SET HEADER 
000774 4? UDES SET PE, NORMAL, ODD 
003136 LT [GO EXECUTE TEST SEQUENCE 


ee wwe ere ee ee ee 
RNMMVNNNNNNIN 3 2 2 2 2S SS SS jeleleloleo) 


fwnr— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWWNWW 
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sLOGIC TEST 7: WRAP 0, NRZ,NORMAL, ODD***«« 
#144260 ,WCS1 :SET EXPT CS1 
00,wCS2 :SE 


jelelelelela) 
ad and cad and ac ed 


<8 
se 
mvMpornonororuens 


= N NNR NNO NNN 
WHWNIWNANIWNINANAW 
NNNNNNN NNO 


oO 
Ww 
—Mu' 


s 
3 


;1F NOT: BR 
;GO SEE IF ITERATIONS 
;RETURN TO SCHEDULAR 


;LOGIC TEST 10: WRAP 0, PE, NORMAL, ODD*«#«« 


a ae 


#4260 ,WCS1 SET EXPT CS1 

#100,WCS2 sSET EXPT CS2 

#10640 ,WDS sSET EXPT DS 

#0, :SET EXPT ER 
#MSLTIO,EMADDR SET HEADER 

#2300 ,UDES [SET PE, NORMAL, ODD 
LT7A :GO EXECUTE TEST SEQUENCE 


ae a a aed ae ae ed cd ee cd ccd ed el ee cd el ce ed ee ce ee cc eb ed eb cl es 
ted ed De ed ed dd 


at aed ad ond aad od 

Monofonofnorye 
> | 

WANA 
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—_ 
oa 
Ww 


;LOGIC TEST 11: CORE DUMP WRITE, WAM2eenenes 


#4260. gues! :SET EXPT CS1 
:SET EXPT C52 

#10660, ss ZSET EXPT DS 
*0.ce [SET EXPT ER 
merit, EMADDR :SET HEADER 
#1720, UDES [SET NRZ, CORE DUMP, ODD 
PATRN :POINT TO PATTERN 0 
MLTI1A,SCOLP :SET SCOPE ADDRESS 

PC, WAMS “GO DO WAM 2 


SEE IF DONE 
“SELECT PATTERN 2 
: CONT INUE 


7GO SEE IF ITERATIONS 
RETURN TO SCHEDULES 


sLOGIC TEST 12: CORE DUMP READ, WAM 3x«e«e 


#4270. wCS1 ;SET EXPT CS1 
wCS2 
#10660, WOS 


#0 

#MSLT12,EMADDR : HEADE 

#1720, UDES s SELECT ate CORE DUMP, ODD 
PATRN :SELECT P, TTERN 0 
#LT12A,SCOLP SET SCOPE ADDRESS 

MWCDPO ,RCDP POINT TO PATTERN 0 

PC O WAM3 


WAM’ D 
:SEE IF DONE 


BR 
SELECT PATTERN 2 
mal dPe, RCOP POINT TO PATTERN 2 
LT12A : CONT INUE 


BC, ITER :GO SEE IF ITERATION 
TS(D2 SRETURN TO SCHEDULE 


WAAIAIANIAWWw 
FEAR AS 


8888888838 


ry 
RS 


Sesseaceaees 


oo 

— — 

non 
™~ 


i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 


a a td at ad 
SSLESRASLSSEVRARAVT ALS ISVS ARANASSSIFALF 
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sLOGIC TEST 13: EVEN PARITY WRITE: WAM 1(M8933) «00 


001022 LT13: #4260,,WCS1 zSET EXPT CS1 
001024 MOV #100 ,WCS2 3S 


1 
#10600, WDS 
#0,WER :SET EXPT ER 
#MSLT13, EMADDR ‘SET HEADER 
#1710.Ub [SET NRZ, NORMAL, EVEN 
LTSA [GO EXECUTE WAM 1 
ZLOGIC TEST 14: EVEN PARITY READ: WAM 0(M8933 M8934) «eee 
#144260,WCS1 SET EXPT CS1 
#100,WCS2 
#150600,WDS 
#200, WER 
00062 #MSLT14,EMADDR 
000774 #1710, ,UDES 


cette 


ath aah ath cad ad cath a acc oat ed 
WDBNOWSWNO 


SS 


MEWN— 


sLOGIC TEST 15: READ REVERSE: WAM 3(M8906) «*+«« 


oor ase 15: #4276 ,WCS1 = SET EXPT CSi 
MOV #100,WCS2 
#10640 ,WDS 


#0 ,WER 
#MSLT15,EMADDR EADER 
#2300, UDES SELECT PE.NORMAL ,ODD 


rmomnononononononononofory 


a a ed ed od wd 3 
Moron 


Mmnron 
Nm 


001004 #1 RDRVF ;SET READ REVERSE FLAG 
LTA :GO DO WAM 3, REVERSE 
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CZTEBBO att Pad CLT I] 
CZTEBB.P11 15-NOV=78 13:16 


Mrvronororfere 


bee’ TEST My #4 ore CORRECTION-SINGLE TRACK EVERY FRAME 
THIS ISA 2 THE CRC CORRECTION LOGIC. THE TEST WRITES 
KNOWN PAT TERN (ALL 1°S , ALL O'S & 125252) WITH A DATA BIT 
TALTERED IN EACH OF THE DATA TRACKS. THIS TEST INSURES THAT A 
:CRC CORRECTABLE ERROR IS CORRECTED. 
>THE TEST PROCEEDS AS FOLLOWS: 


STEP A WRITE A KNOWN PATTERN USING WRAP AROUND MODE 0 

STEP B a THE PATTERN ABOVE WITH DATA BIT(S) MODIFIED 
IN TRACKS SPECIFIED BY CRCPAT USING WRAP AROUND MODE 4 
THIS WILL GENERATE A CRC ERROR 

STEP C EXECUTE A READ REVERSE USING WRAP AROUND MODE 3 


REPEAT STEP B ABOVE. UPON COMPLETION THE DATA READ 
BACK WILL MATCH THE DATA WRITTEN IN STEP A. 


SHIEAK | 


™m 
a 
a ek 


005037 L116: PATRN :SELECT PATTERN # 0 (ALL 1°S) 
MO #401, CRCPAT 7SELECT BITS TO BE ALTERED (TRACK 1) 
#MSLT16,EMADDR ;SET ERROR MESSAGE HEADER 
012737 004012 #LT16A,SCOLP SET SCOPE LOOP 


012737 ! 16A: #144260 ,WCS1 :SET EXPECTED VALUES UPON COMPLETION 
000100 MO #100,WCS2 
4b ae 


#200, WER 
#1700, UDES :SET UNIT DESCRIPTION-NRZ ,800BPi ,ODD 
:PARITY & PDP11 NORMAL MODE 
CRCFLG : CLEAR CR CORRECTION FLAG 
PC DO A WRAP Q =--- STEP 
TSET CRC ERROR CORRECTION IN PROGRESS 
V ZGET DATA WRITTEN BY WRAP 0 
Be. TH CREDA 


CRCDAT,XORDAT ;GET DATA TO BE MODIFIED 
CRCPAT.XORPAT  :GET MODIFIER 

CRCPAT,XORDAT ;CLEAR SET BITS IN DATA TO BE MODIFIED 
CRCDAT,XORPAT ;CLEAR SETTING BITS 

XORPAT,XORDAT SET CLEAR BITS IN DATA TO BE MODIFIED 
XORDAT,CRCDAT RESTORE MODIFIED DATA 


#144260 ,WCS1 SET EXPECTED VALUES UPON COMPLETION 
#110,WCS2 OF WRAP 4 

#150600 ,WDS 

#100300 WER 

PC ,WAM4 sDO A WRAP 4 === STEP B 


#1 ,RDRVF S&T TD READ REVERSE 
Ne tie 2SET EXPECTED VALUES UPON COMPLETION 
W 


SSRRRERSERE S885 
RERSVRFSES VYRES 


Mono 
Non — 
Aon 
N 

NN 


001030 
05316 Po, WAMS - DO A WRAP 3 === STEP ( 


Ooooo00°o 


=) 
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004242 012737 #4260,WCS1 
004250 #110,WCS2 
004256 0 #10600, WDS 
004264 000000 #0,WER 
004272 CRCFLG ;CLEAR CRC CORRECTION IN PROGRESS FLAG 
0047 PC, WAM4 :GO TO WRAP 4 STEP D 


CRCPAT SELECT NEXT TRACK TO BE ALTERED 
LT16A CONTINUE FOR ALL TRACKS 
#401,CRCPAT sRESET BITS TO TRACK 1 
PATRN SELECT NEXT PATTERN 

001000 Ga BRANCH IF NOT DONE 
L 


; ITERATION LOOP 
RETURN TO SCHEDULER 


BIVB B 


CRCPAT: .WORD : CONTAINS BITS TO BE ALTERED 

CRCDAT: . CONTAINS DATA TO BE WRITTEN BY WRAP4 
KORDAT: . ; TEMPRARY STORAGE FOR XOR 

KORPAT: , ; TEMPOARY STORAGE FOR XOR 


SESSSRESSsyyVPIyB 


Oak 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WW 
ab and 
—-O 
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NANG 
14 


i 


an 


sLOGIC_TEST 17:CRC_CORRECTION = MULTIPLE BAD TRACKS 
sTHIS TEST CHECKS THAT CRC ERROR CORRECTION IS NOT PERFORMED WHEN 
s;MULTIPLE BAD TRACKS ARE DETECTED. 


LT17: ZSELECT PATTERN #2 (125125) 
MO SSELECT 2 BAD TRACKS 
mms 117 .EMADDR :SET ERROR MESSAGE HEADER 
MO MLTI7A,SCOLP SET SCOPE LOOP ADDRESS 
LTI7A: #146260" wCS1 :SET EXPECTED VALUES ON COMPLETION 
MO “OF WRAP 0 BELOW 


WAWNAAANA 
— od dd sd 


lelelelelelelelele) 
a ed cd ad cd aed ed ed od 


+} UNIT DESCRIPTION 
: = Poe + By pally A! IN PROGRESS 


:D0 A WRAP 0 =-- 


OWODWNAUSWN —OOONAUS WI 


RSRRASRORSRIRSKS 


3 
se 


5ST cate CORRECTION IN PROGRESS 
GET DATA TO BE WRITTEN 

:MODIFY DATA TO BE WRITTEN 

SET EXPECTED VALUES ON COMPLETION 
F WRAP 4 BELOW 


WWW 
WN 
—— 
Ww 


RAK 


0600 ,WDS 
001030 #100300. WER 
PC ,WAM4 :DO A WRAP 4 === STEP B 


NOP 
001004 :SET READ REVERSE FLAG 
m24276, WCS1 SET EXPECTED VALUES ON COMPLETION 
wCS2 BELOW 


110, :OF WRAP 3 
"1 50600,WDS 
001030 #1000, WER 
PC, WAM3 


WwW 


BAA 
NOUS WN O O00 NO ARWN ODOM 


DO A WRAP 3 === STEP C 
001022 #144260,WCS1 SET EXPECTED VALUES ON COMPLETION 
0,wCS2 ;OF WRAP 4 BELOW 
#150800, WDS 


001030 bh dp WER 
CLEAR . nn PROGRESS FLAG 
CRCDAT RI DATA WAS godt IN STEP B 
AMWBUFF ,R3 : BUFFER 
PC,DATIA ; F 
PC ,WAM4 :GO DO A WRAP 4 =~ STEP D 


012146 PC, ITER ITERATE TEST 
002212 F TSCD2 RETURN TO SCHEDULER 


EXEL KEKEEERY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WNWWNANWWNAAG 
NAAM GAIY 
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ws 
oo 


;LOGIC TEST 20: READ REVERSE,NRZ,WRAP 3 
THIS TEST TESTS THAT A CRC ERROR OCCURS AFTER A READ REVERSE USING 
WRAP AROUND MODE 3 IN NRZ MODE 
LT20: PATRN SET PATTERN # O (ALL 1°S) 
#144276,WCS1 ;SET EXPECTED VALUES ON COMPLETION 
#100,WCS2 
#150600 ,wDS 
#100000 ,WER 
WMSLT20,EMADDR ;SET ERROR MESSAGE ADDRESS 

UDES i eeees 


SCOP 
-RDRV SET READ REVERSE FLAG 
ta SET DATA CHECK FLAG TO NOT CHACK DATA 


RDRVF :CLEAR READ REVERSE FLAG 
DCHKFL CLEAR DATA CHECK FLAG 
PC, ITER 

002212 TSCD2 RETURN TO SCHEDULER 


SREREEE 


“N 
SRISISEE 


WWWNWWWNWWG 
' N 
MEW 


~ 
o 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1? 
1 


t 
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NING 
a4 
v 


ada 3 hd BEY CLT i 


I 
15=NOV=78 13:16 


aon 


FERRARA AERA EREEEEERRERARRRERERERREREEEEERRREE EE 


:DATA SETUP ROUTINE: 


ITHIS ROUTINE IS USED TO GENERATE THE DATA PATTERNS 
; THE PATTERN TO BE WRITTEN IS SPECIFIED By: 
;PATRN = ALL 1°S 


=1 ALL _0°S 
=2 ALTERNATE 1°S & C'S (125125) 
=3 ALTERNATING. PARITY (177377) 


RR RARE RAR ARENA REREER REE R EAR RRR 
STFLG ;SEE IF SINGLE TEST 
DSO IF NOT: BR 
173552 #100, aSWR sSEE IF SELECT PATTERN 
SO ;IF NOT: BR 


meteor A Be 


RRANSS 


BNE 


REQUEST PATTERN NUMBER 


:PRINT PATTERN NUMBER 
:GET ADDRESS OF PATRN ENTRY 


a ks ns ed 2 2“ 8 2 od 3 8 8 I 8 8 I I 


SSSSISSSSS 


:G0 = PATTERN NUMBER 
000777 7SET FLAG 
000776 PATRN, WPGFL :SET PATTERN NUMBER 
: MWBUF F R53 :R3 = ADDRS OF WRITE BUFFER 


PATRN,R1 :R1 = PATTERN SELEC 


TOR 

:MAKE PATTERN SELECTOR EVEN 
PC ,aDATBL (R1) ATTERN 
#202 ,R2 
#RBUFF ,R1 3R1=READ DATA START 
(R1)+ 38 ae BUFFER 
R2 ; SEE ule _DONE ALL 

DS4 : BR 

PC 
ZALL ONE See eeeenee 

#-1,R1 pR1= 

#202 ,R2 :R2=WORD COUNT +2 

R1,(R3)+ ;LOAD BUFFER 

R2 sSEE IF DONE 

1$ :IF NOT: BR 
PC ;RETURN TO CALLER 
ZALL ZEROS + *eeteeeee 


CLR R1 RI=DATA 
BR DATIA LOAD BUFFER 


ONE/ZERO IN ALTERNATING CHARACTERS**88eeneee 
005162 012701 125125 DAT3: MOV #125125,R) sRI=DATA 
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CZTEBB.P11 15=NOV=78 13:16 


SEQ 0035 
1435 005166 000765 


BR DATIA ;LOAD BUFFER 


4 
2 ZALTERNATING PARITY CHARACTERS ***xnxmn 
439 005170 012701 177377 : MOV #177377,R1 :R1=ALTERNATING PARITY DATA 
4 005174 000762 BR DATIA =GO LOAD BUFFER 





CZ TEBBO Pr ies a T MACY11 30A(1052) 
CZTEBB.P11 15=NOV-78 13:1 


000010 


000746 
000750 


000756 
0760 


000754 


000746 
000750 


000756 
000760 


K 3 
21-DEC-78 13:12 PAGE 36 


;WRAP AROUND MODE 0 GLOBAL ****« 
SET WAM NUMBER 


SET BUFFER ADDRESS 
SET POINTER TO READ BUFFER 
O SET UP 


;WRAP AROUND MODE 1 WRITE BUFFER**xexnannn 
MOV #10,WAM 
BR WAMO1 


;WRAP AROUND MODE 2 BIT FIDDLER WRITE***xxannnn 


#12 ,WAM 
+1 | 


DATC 

AMWBUFF ,DATAD 
ARBUF F ,RDAD 
PC, SETUP 
EXEC 


;WRAP AROUND MODE 3 BIT FIDDLER READ*««xxxnnnn 


SET WAM NUMBER 

2 SET FUNCTION 

;SET BUFFER ADDRESS 

>SET POINTER TO WRITE BUFFER 


WAM3A 
#376,DATAD 
#377, ,WTAD 
woe Lees 

Ul 
WAM3B 
RCDP,WTAD 


PC,SETUP :GO SET UP 
EXEC :GO EXECUTE 


SET READ REVERSE CODE 


WRAP AROUND MODE 4 CRC CORRECTION 
; CALL: PC ,WAM4 


JSR 


:SET MAINTENANCE MODE FUNCTION = WRAP 4 
SET TAPE FUNCTION = WRITE FWD 


DATC ¢ 
MCRCDAT,DATAD ;SET ADRS OF WRITE BUFFER 
#RBUF F ,RDAD SET READ BUFFER ADDRESS 
PC, SETUP :GO SETUP REGISTERS 

EXEC :GO EXECUTE 
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CZTEBBO dated 3 ld Ae MACY11 30A(1052) 21=DEC-78 13:19 PAGE 37 
CZTEBB.P11 15=NOV=7 at SEQ 0037 


sREGISTER SETUP ROUTINE***«« 
001020 : CRCFLG :D0 NOT DO DATA SETUP NOR INIT 

BN 1$ :I1F CRC CORRECTION IS IN PROGRESS 
000030 000746 . :DO NOT INIT IF DOING WAM 4 === STEP D 
000011 172774 : - seria :DO DRIVE CLEAR IF WAM4=--STEP D 
000736 : ‘7 i SINGLE TEST 
000776 ‘SEE i “oe SELECTED PATTERN 


BN IF 
005002 : :GO DO DATA SETUP 
012216 : PC; INIT INIT SLAVE, DESC” / SELECT git & — 


C AND MOVE 0 
177400 172746 : 4-400 ,aFC ; 
000020 000774 B rs UDES sSEE IF “CORE DUMP 


SE SIF NOT: BR 
172730 MO #-1000,aFC TSET FC=WCX4 
1 12: #-200, alc SSET we 

DATAD.aB :SET BUS ADDRESS 
172710 #10000, acs SASSURE DRIVE THERE 


:1F SO: BR 
172750 720000, aSWR 7SEE IF PRINT ERRORS 
SP01 ;1F NOT: BR 


016765 AWMSG4 LRG ’ 
013120 
100000 


BRIER 


J PC, TTOUT zPRINT NON-EXISTANT DRIVE 
172730 : #100000,aSWR SEE IF HALT ON ERROR 
BE SPO :IF NOT: BR 


005536 : sRESETUP 
000014 000746 : 7 SEE . WAM 3 


173070 000752 MOVB  aWTAD, DATC 'GET FIRST CHAR 
177400 000752 #177400, DATC 


SWAB DATC 
000752 #200,DATC SET PARIT 
RDRVF SEE >. READ REVERSE 


: “DE CREMENT POINTER 


PAAAAMAM AVIA 
NONINONNY 2 @ 2 2 Ss SS Ss 


MVviv 
BONAUSWN—O OONOUSWN Oo 


SV 


WIS 


;BUMP POINTER 
SEE IF CORE DUMP 
:1F NOT: BR 
[BUMP POINTER A 


SET UNIT DESCRIPTION (DEN,PAR ,FMT) 
SET MAINT MODE 


WAAAY VIII 


BRIERE 


SET DATA 
FUN, aC 1 ; SET FUNCTION 
#40000, ads ASSURE NO ERROR 
SP3 “TF ERROR: BR 


BEERSSRESES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MYVIVIW 
Us & 


PC :RETUR 
020000 : #2000 ,aSWR aSee iF PRINT ERRORS 
‘ SP4 NOT: BR 


siP 
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012704 AWMSG2 ,R4 
;PRINT SETUP ERROR 


004737 PC, TTOUT . 
032777 172526 SP4: #100000,aSWR § :SEE IF HALT ON ERROR 
001401 SP5 - NOT: BR 


000000 
000207 SP5: PC ;RE TURN 
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1 15=NOV-78 13:16 SEQ 0039 


EXECUTE WAM ROUTINE ***** 


NN 
_ 


ae 


Ono 


.P 


Min 
My 
won 


ges 


172452 

Ex0 sASSURE MAINT CLOCK IS 2ERO 
172442 :IF NOT: CLEAR IT 
000746 : MP 4 :BRANCH IF NOT WAM 0 


1$: :GO DO WAM 0 
000746 : MP 13 :BRANCH IF WRAP AROUND MODE 4 


B 
172364 SET GO BIT 
RO 


MO #2,R1 SET DELAY 
172402 #100000, aTC :SEE IF ALPHA 
B 1$ “IF SO: BR 


SORE, 


sek 


NOUSWN—OO 


NNN NNN 


RO 
haa sAWAIT ALPHA 


BN EX1A 
000602 : ae BRANCH IF TE16 


X 
000014 000/46 on ata ;BRANCH IF NOT WAM3 
000752 172336 DATC,a@MR LOAD DATA AND DO CLOCK UP 
172364 aPSw 


000400 ; MOV #400,R1 SET NUMBER OF CLKS 
000020 000774 . + fone SEE IF CORE DUMP 


001000 
000014 


MMMAVIUIMIITVIU 
as 


ce eh ee ee cae a a a ee ed ee a ed ed ced eed ee ed ceed eed 
wiv 


x ;I1F NOT: BR 
#1000,R1 :SET # OF CLOCKS = WORD COUNT X 4 
#14 ,WAM ;BRANCH IF WAM 3 


000746 Pxek 
002000 000774 seer Anes ;BRANCH IF NRZ 


R1 
000246 SET TO ALLOW FOR PRE/POSTAMBLE 
BR EX5A 


000010 E sADD CLOCKS FOR CRC_AND LRC 
000014 000746 M ;BRANCH IF NOT WAM 3 


E 
172462 AD,R GET DATA CHARACTER 
177400 ° :CLEAR UPPER BYTE 
001004 RDRVF BRANCH IF READ FORWARD 


000754 ;DEC POINTER 


BR 
000754 WTAD ; INCREMENT DATA PTR 
000020 000774 BI sah :;BRANCH IF NOT CORE DUMP MODE 


000754 ;BUMP POINTER 
172416 :SEE IF END 
;1F NOT: BR 


EX5B . : 
000010 000754 S sRESTORE POINTER 
000040 172160 44°, aMR CLOCK UP (DOWN IF TU77) 
017702 172154 aMR ,R2 ;READ MR 





cf 


TEBBO TMO 
CZTEBB.P11 


_ 
o 
— 
ae 


REL ES TERS 


tk a as 8 2 st st 
Ww 
_ 


eo 


1635 


a 
76 
00 


04 
06 
12 
14 
16 
20 
2 

26 


0064 32 
0064 36 


006440 
006446 
006454 
006460 


006462 
006470 
006472 


4 
000137 


010277 
000426 


052777 
777 
017700 


177600 
177000 


000200 
000602 


172110 
011704 
172076 
000040 
000040 
172054 
000010 
172262 
000760 


172250 
000760 


011704 


172066 
172060 


000774 


EXSC: 


E QO: 
Ex5C1: 
EXSD: 


ae $3 yuagnaanegenges 


gI/rS00 Ae 
#177000,R0 
2s 


SET ODD PARITY 

LOAD NEW DATA 

sBRANCH IF TE16 
:DECREMENT CLOCK COUNT 
CLOCK DOWN (UP IF TU77) 
: CONTI 

7GO TO END OF RECORD 
DO CLOCK DOWN 


:CLOCK UP (DOWN) 
CLOCK DOWN (UP) 


sSEE IF EVEN PAR 
NOT: BR 


PUT CHAR iN CORE 


wat Pa Ad A Of. i} MACY11 30A(1052) 21=DEC-78 13:18 PAGE 40 


SK_OUT DATA 
POSITION DATA 
eset IF PATTERN 3 
;I1F SO: BR 


T MR 


sSEF IF DONE CLKS 
:1F NOT: BR 
G0 DC EOR 


SEQ 0040 
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SEXECUTE WAM Oxeeeee 


000666 : XW2H,.RTRN iSET INTERRUPT RETURN ADDRESS 
MOV Ri SET NUMBER OF CLOCKS = FC/2 
000774 SEE IF PE 


:1F NOT: BR 
ELSE SET CLKS = FC/4 
: #RBUF 3 SET BUFFER Sten 
060746 30, WAM sBRANCH IF NOT WRAP 4 


BNE 4 
171722 SET ote a BUS ADDRESS INCREMENT 
171704 : sSET WRITE COMMAND AND GO 
aPSw s ALLOW INTERRUPT 

171716 

sAWAIT CLOCK UP 

;GET DATA 
sAWAIT CLOCK DOWN 
sGET DATA 
sSEE IF DONE ALL 
;IF NOT: BR 


SET DELAY 


gece 
Sor 
N 
Ww 


ooo 
o—— 
SASSSAS 
NWNDR TUNA N 


egesess 
aru ror 
NON™N 
NNNN 
NNN 


o 
© 


171702 


N= 
SA0N 
SNS 


2ggeg 
SeSx 


MM] NIN 
SINSLS8 
NSO 


00 
00 
00 
00 
00 
03 
00 


BN i DELAY 
020000 177700 ;SEE IF ERROR PRINT 
W2G F NOT: BR 


017170 , 

013120 “TTOU :PRINT NO INTERUPT 

171662 ' oR “SEE IF HALT ON ERROR 
‘TF NOT: BR 


gee 
eaeN 
S35 


a 


BVSaa 


:GET i OF READ BUFFER 
SET SIZE 


MSsSSS 
WoO = 
Monn 

Soooo 
AVS 


eset IF EVEN PAR 
F NOT: BR 
el 5 ZSAVE PAR + DATA 
EXw2J0: MOVB azeeneen ASSEMBLE DATA IN BYTES 


EXW2J1: 
EXWe2J ONTINUE FOR ALL 
171606 #200, aSWR ‘See IF STATUS CHECK 
EXw2K ;1F NOT: BR 
Jt PC ,WSTCK SELSE GO CHECK STATUS 
171570 #400, aSwWR ; SEE IF DATA CHECK 
EXW2X F BR 


NOT: 
BC. DCHK se GO CHECK DATA 
\ 


o -90 
Rosaesck 
Nm 
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15=NOV=78 1 


WRAP AROUND STATUS CHECK ROUTINE ***eeeeee 


SERFL sce ERROR FLAG 
HDRF L AR HEADER _FLAG 
SLVTYP {BRANCH IF TU77 
BNE 10$ 
015124 #MSLT2,EMADDR +e y TEST 2 
016014 : #MSLT15 ,EMADDR SEE a TEST 15 


“SEE IF PATTERN 3 
;IF NOT: BR 


ee ee 
> > Pe NAOSESISEER & 
MEWN—O NOMEW 


2 SET EXPT PARITY ERROR 
E=CS1 


RYVIIIII> 
wooOno 


ny 
DONAUSWR— 


X 
ng Me SC & TRE BITS 


:GO0 C 

;SET CODE=CS2 
+}! RCVD CS2 

CLEAR > BIT (DON'T CARE BIT) 
“GET EXPT CS2 
:SET DRIVE NUMBER IN EXPT CS2 

PC,WSTG :GO CHK 

MWMSG6E,ERADD ;SET CODE=DS 
aDS,R2 7SET RCVD DS 
a te GET —s DS 
0 AWMSGOF , ERADD Ser CODE= ER 
171310 @ER,R2 [GET RCVD ER 


N 
Nv 


suas 


aos 
ay 


016235 MMSLT20,EMADDR ;SEE IF TEST 20 
BN IM -7 BR 


a 


NOUSWN $90 ODBNAMUSWN OO 


FCE 
Ger EXPT ER 
:GO_CHK 
:SEE IF ANY ERRORS 
171312 eore IF HALT ON ERROR 
F NOT: BR 


e 


; CONT INUE 
SEE IF EXPT=RCVD 
SO: 


ST i1F 
000770 SERFL SET ERROR FLAG 
020000 171264 Sayan ee sSEE IF PRINT ERRORS 


:1F NOT: BR 

000616 HDRF L :SEE id DONE HEADER 
wo*GO : : BR 

000620 EMADDR ,R4 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
17 
1 
1 
1 
1 
1 
1 
1 
1 





CZTEBBO aa $a Ld C 
CZTEBB.P11 15=NOV-78 


A 


:PRINT TEST HEADER 


PRINT STATUS TAG 
SET HEADER FLAG 


PRINT CODE 

PRINT EXPT TAG 
PRINT EXPT STATUS 
zPRINT RCVD TAG 
PRINT RCVD STATUS 
RE TURN 


oo 
= ad 


SENRSERE 
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I] 
CZ7TEBB.P11 15-NOV-78 13:16 
;DATA CHECK ROUTINE***** 
: NOP 
001020 ;DO NOT DO A DATA CHACK 
2$ IF CRC CORRECTION IN PROGRESS 
Si esie : MP 
001016 : S ;BRANCH IF DATA IS NOT TO BE CHECKED 
000616 ;CLEAR HEADER FLAG 
000764 ;CLEAR DATA ERROR FLAG 
000772 CRCNT [CLEAR CHAR CNTR 
000010 000774 [SEE IF EVEN PARITY 
DCHKAO ;IF NOT: BR 
010272 SELSE GO CHECK EVEN 
000010 000746 : i SEE IF WAM 1 
DCHKA 31F NOT: “BR 
002000 000774 #2000 ,,UDES :SEE IF PE 
DCHKA IF NOT: 


xia 
010774 PRCHK £60 CHK DAT 
177400 : #-409 ,RO > SET NUMBER OF CHARACTERS 
000012 000746 #12,WAM 
DCHKA1 :1F NOT WRAP 2: BR 
000020 000774 #20,UDES 
:1F NOT CORE DUMP: BR 


DCHKA1 
177000 #-1000,RO 
000030 000746 : CMP iy wAM BRANCH IF WRAP 4 


000006 000746 SEE IF WRAP 0 
177744 ~34,R SET NUMBER OF CHARACTERS READ 
017634 SET POINTER 
000764 cL CLEAR DATA ERROR FLAG 
000012 000746 DCHkA2: SEE IF WRAP 2 

BN DCHKB :IF NOT: BR 
002000 000774 ' ;SEE IF PE 

DCHKB F NOT: BR 

177653 :POINT TO START OF DATA 
000001 000762 SET WRAP 2 FLAG 


:GO CHECK DATA 
:GO CHECK WRAP 1 DATA 


SeEererere 


3 
o 


Pits Teter Rr RRP 


0 00 00 Od Co Co Oo 00 C0 Co 
ce ed ae ced ed ced ed cd oe 


2 SET GOOD POINTER 

: MO SET READ POINTER 

000774 i SEE IF CORE DUMP 
DCHKO F NOT: BR 


000746 7SEE If WAM 2 
:1F NOT: BR 
001000 7 SEE 4 _PATTERN 0 
DCHKC ;1F NOT 
001054 3SET CORE vey PATTERN 0 


BR £60 CHE CK 
001042 : #WCDP2,R1 ;SET CORE DUMP WRITE PATTERN 2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 


SOUODNAOUSWN oO 


8 
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P11 15=NO 


11 
V-78 13:16 
DCHKO :GO CHECK DATA 
DCHKD: 
DCHKO: CMPB (RI) , (R2) :SEE IF DATA OK 
020000 170630 :SEE IF PRINT ERRORS 
DCHK2 [IF NOT: BR 
000616 :SEE IF DONE HEADER 
1 ;IF SO: BR 


=’ 

x 
*-— 
NSS 

NO 


ARN 
NRON 


eSSeessq 


000620 
013120 J ;PRINT HEADER 
000764 DERFL ;SEE IF FIRST ERROR 
; NOT: BR 
zPRINT DATA ERROR TAG 
sPRINT PATRN TAG 
J zPRINT PATTERN NUMBER 
DCHK1A: 7SET HEADER FLAG 
000764 MO 5 ;SET DATA ERROR FLAG 
ZPRINT CHARACTER NUMBER TAG 
;PRINT CHARACTER NUMBER 
zPRINT GOOD TAG 
zPRINT GOOD DATA 
;PRINT BAD TAG 


013474 J PC,DOUT :PRINT BAD DATA 
000762 ts SSEE IF WRAP 2 NRZ 


IF SO 
;BUMP POINTER 
000020 6900774 7SEE IF CORE DUMP 
HK :IF NCT: BR 
000012 000746 7SEE IF WAM 2 
BN :IF NOT: BR 


017122 


22883 


oO 
= 


a le ee eee 
oO 
par 


cb Se 2 Sot et orn 


;BUMP POINTER 
SEE IF END OF PATTERN 
;IF NOT: 


: : BR 
RESET POINTER TO START OF PATTERN 
: CONTINUE CHECK 


BR 
DCHK2A: 
DCHK2B: R2 
000746 CMP 7 ;BRANCH IF WAM 4 
000746 ;SEE IF WAM 0 
:IF NOT: BR 
1$: ;BUMP POINTER 
5237 DCHK3: CRCNT : HAR CNTR 
032777 000400 170354 BI #400, aSWR ;SEE IF CONT DATA CHk 
001006 DCHKX 3 IF NOT: BR 
005200 Ro ;SEE IF DONE 
001242 BNE DCHKO ;IF NOT: BR 


elelelelelelelelelelelelelelelelelelelelelelelelole) 
eb a ee ce ae a ec cee ae a ce ee ae a a a cee ed od oe ce od 
Oo 
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CZTEBB.P11 15=NOV-78 13:16 ¢ mais 


g i 
oO 
= 
oO 
Nm 
™~m 
Nm 


000762 


% 
~N 
oO 
= 
oO 
Nm 
oO 


R 
170332 : - : SEE ir HALT ON ERROR 
: SEE TF ‘DATA ERROR OCCURED 
F NOT: BR 


lolelelela) 
SLLVS 


CLEAR CHAR CNTR 
CLEAR HEADER FLAG 
:CLEAR DATA ERROR FLAG 
a FLAG 


. 
° 


Seggzeseaeee 


00 
® 


010270 





‘ 4 
a8 ett Peal | CLT i MACY11 30A(1052) 21=DEC-78 13:15 PAGE 47 


I 
S-NOV-78 13:16 


sEVEN PARITY DATA CHECK***** 


000006 000746 SEE IF WRAP 0 

- 1$ :1F NOT: BR 
177744 ~ SET NUMBER OF CHARACTERS READ 
017634 ae ; :SET POINTER 


177400 : SET NUMBER OF CHARACTERS 
MWBUFF ,R1 ;RI=START OF WRITE BUFFER 
;R2=START OF READ BUFFER 

GET EXPT DATA 


:SET NUMBER OF BITS 
SEE IF ONE BIT 
;1F NOT: 


; : BR 
;COUNT ONE BITS FOR PARITY CHECK 
;SEE IF DONE 


:1F SO: BR 
POINT TO NEXT BIT 


BESS SSeR ess 


ad ad a aed aed oh a de 
WWNAWEWN—O 


(R1),R5 GET EXPT DATA 
177400 + lati MASK DATA FIELD 


:1F NO ONE BITS SET: BR 


PORUSLS 


COONAUESWN— 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9. 
9 
9. 
9 
9. 
9 
9. 
9. 


DCKE4S 
100020 #100020,R5 
BR DCKE5 
000001 : #1 ,R3 SEE IF ODD NUMBER OF ONE BITS 
DCKES :1F NOT: BR 
100000 #100000 ,R5 :SET EVEN PARITY BIT=1 
077400 : #77400, (R2) MASK DATA FIELD 
R5,(R2) :SEE_ IF DATA + PARITY GOOD 
DCKE10 :1F SO: BR 
020000 170134 #20000 , @SWR 7SEE IF ERROR PRINT 
DCKE10 IF NOT: BR 
SEE IF DONE HEADER 
:IF SO: BR 


:PRINT HEADER 
sSEE IF FIRST BAD CHAR 
: NOT: BR 


—_ — 
PERE 


— I 4 
Ssss 
CRUE 


R 
i?) 
WW 
NN 


DCKE7 
#WMSG16,R4 
PC,TTOUT PRINT BAD DATA TAG 
#WMSG32 


zPRINT PATTERN TAG 
PRINT PATTERN NUMBER 


KE?7: 
000764 SET DATA ERROR FLAG 
000616 \ ZSET HEADER FLAG 


PRINT CHAR NUMBER TAG 
;ORINT CHAR NUMBER 


Racers 


NYNNYNNSNNNNNNO™N 


oO 
vy 
as) 


oO 
= 
Ww 


_— ws HS SS HY = = 


at nd ed 
FASSRRLLKELKLLL 
WN -OVDONAULSWH 
ooo S 
ad th od 
Nort 
NANENNONWN 


010544 
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CLT Il 

CZTEBB.P11 15-NOV-78 13:16 
010550 017134 M#WMSG17 ,R4 

0 013120 El sPRINT GOOD DATA TAG 


013474 PC .DOUT :PRINT EXPT DATA 
010700 PCDCKEP :GO PRINT PARITY BIT 


017141 eee R4 
013120 TTOU PRINT BAD TAG 


013474 PC ,DOUT PRINT BAD DATA 
010700 f PC ,DCKEP :GO PRINT PARITY BIT 


DCKE10: 
090006 000746 #6 -WAM 7 IF WRAP 0 
1$ ;1F NOT: BR 
000010 #10,R1 :BUMP POINTER 
1$: (R2)+ ; BUMP Anogh a 2 
000772 


CRCNT ;BUMP CHAR CNT 
000400 167712 #400 ,aSWR sSEE IF CONT INGE DATA CHECK 
DCKE11 :IF SO: BR 


010232 DCHKX [GO TO END OF DATA CHECK 
DCKE11: RO SSEE IF DONE 
DCKE12 :IF SO: BR 
010332 DCKEO SELSE CONTINUE 
010232 DCKE12: DCHKX ;GO TO END OF DATA CHECK 
DCKEP: NOP 
000240 000612 #240, T0B 


PC,TOG : SPACE 
600612 #260,TOB ; PAR=0 
R3 3 SEE 4 PARITY REALLY=9 
DCKEPO i1F BR 
000612 TOB ELSE “Ser 


TO 1 
013220 DCKEPO: PC,T0G [PRINT PARITY BIT 
010736 PC RETURN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





K 4 
CZTEBBO TMO3-TE16/TU77 CLT MACY11 30A(1052) 21=DEC=78 13:12 PAGE 49 
CZTEBB.P11 15=NOV-78 13: 


992 


g 


sPREAMBLE/POSTAMBLE CHECK**«xae% 


SET SIZE OF POSTAMBLE 
SET POINTER TO POSTAMBLE 
CLEAR HEADER FLAG 
CLEAR CHAR CNTR 

CLEAR DATA ERROR FLAG 


PEPER EEE 


011012 GO CHECK POSTAMPLE 


000051 SET SIZE OF PREAMBLE 

017360 MO SET POINTER TO PREAMBLE 

020236 ARBUFF ,R2 :SET POINTER TO START OF READ BUFFER 
(R1)+, (R2)+ :BUMP ADDRESS POINTERS 
(R1),(R2) ; CHECK DATA 
PD1 IF NOT GOOD: BR 

000001 000001 1(R1) ,1(R2) te cons COMPLIMENT BYTE 


P : IF GOOD: 

020000 167534 : -* 3 aman otF oh, es INHIBIT 

000616 HDRFL :SEE_IF DONE HEADER 
PD4 ;IF SO: BR 

000620 EMADDR ,R4 

013120 PRINT TEST HEADER 

000766 PREF SEE IF PREAMBLE CHECK 
PD2 :1F NOT: 

017273 oe : SET POSTAMBLE HEADER 


017255 2 :SET PREAMBLE HEADER 
: :PRINT HEADER 


Beeeaeses 


leloleleleleleleo) 
SRR 


Stet 
CONAULSWN—O 


GARR 
ROR 


sy 
83 
NaSRS 


ESRSRSRSRS 


PRINT CHAR NUMBER TAG 
;PRINT CHAR NUMBER 
PRINT GOOD TAG 


PRINT GOOD CHAR 
0002 000612 
013220 
013474 PRINT COMPLEMENT 
017141 ; 
013120 U :PRINT BAD TAG 
000001 


013474 T PRINT BAD CHAR 
000240 000612 
013220 


( 
013474 : PC ,DOUT PRINT COMPLEMENT 
: (R1)+,(R2)+ :BUMP ADDRESS POINTERS 
000772 CRONT ;BUMP CHAR NUMBER 
‘ RO ;SEE IF DONE 


RSRSRSEVES 


1 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 
011 


NINN NINN NONy @ a Ss a SS SS SS es 


Wronrnhtw— 
MO ROan 
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BN D :1F NOT: BR 
000766 i SEE IF PREAMBLE 
D O: BR 


010232 £60 TO EXIT ROUTINE 
000766 : :SET PREAMBLE FLAG 
000616 [CLEAR HEADER FLAG 
000772 [CLEAR CHAR CNTR 
000764 CLEAR DATA ERROR _— 
011274 :GO CHECK WRAP 1 DATA 


ed ad cael ae ad a eed cd eld 
FSRSEGEK | 


0 
0 
0 
0 
0 
0 
0 
0 
0 


— 3 2 


N 
oO 
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C2TEBB.P11  15=NOV-78 
2058 

2059 

2060 

2061 011274 012700 
2062 011300 012701 
2063 011304 012702 
2064 011310 062702 
2065 011314 005737 
2066 011320 001401 
2067 011322 005302 
2068 011324 111105 
2069 011326 120512 
2070 011330 001007 
2071 011332 005737 
2072 011336 001001 
2073 011340 105105 
2074 011342 120562 
2075 011346 001510 
2076 011350 032777 
2077 011356 0011 
2078 011360 005737 
2079 011364 001020 
2080 011366 013704 
2081 011372 004737 
2082 011376 012704 
2083 011402 004737 
2084 011406 012704 
2085 011412 004737 
2086 011416 013703 
2087 011422 004737 
2088 011426 012737 
2089 011434 012704 
2090 011440 004737 
2091 011444 013703 
2092 011450 004737 
2093 011454 012704 
2094 011460 004737 
2095 011464 111105 
2096 011466 110503 
2097 011470 005737 
2098 011474 001001 
2099 011476 - 105103 
2100 011500 004737 
2101 011504 012737 
2102 011512 004737 
2103 011516 110503 
2104 011520 004737 
2105 011524 012704 
2106 011530 004737 
2107 011534 116203 
2108 011540 004737 
2109 011544 012737 
2110 011552 004737 
2111 011556 111203 
2112 011560 004737 
2113 011564 005237 


013120 
000762 


013474 
000240 
013220 


000240 
013220 


013474 
000764 


mM 4 
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167212 


000616 


000612 


000612 


W1IDCHK: 


W1D0: 


W1DOA: 
W1D1: 


W1D2: 


WID2A: 


WAM 1 PE DATA CHECK*s«x«« 


#-400,RO 
R 


° 


R 
R5,1(R2) 


(R2) ,R3 


SET NUMBER OF CHAR TO CHECK 
:SET WRITE DATA POINTER 
SET READ DATA POINTER 
POINT TO START OF DATA 

;SEE IF WRAP 2 


SIF NOT WAM 2: 
SRESET POINTER 
;CHECK DATA 


* COMPLIMENT EXPT DATA 
[CHECK COMPLIMENT DATA 
:IF GOOD: 


:SEE IF PRINT INHIBIT 
[SEE IF DONE HEADER 
" SO: BR 


PRINT TEST HEADER 
PRINT BAD DATA TAG 
PRINT PATRN TAG 


PRINT PATTERN NUMBER 
SET HEADER FLAG 


zPRINT CHAR NUMBER TAG 
:PRINT CHAR NUMBER 
:PRNT GOOD TAG 


:GET GOOD CHAR 
:SEE IF WRAP 2 
IF SO: 


2 : BR 
;ELSE COMPLIMENT CHAR 
zPRINT CHARACTER 


7 SPACE 

7PRINT CHAR 
;PRINT BAD TAG 
;PRINT BAD CHAR 
; SPACE 


PRINT CHAR 
SET DATA ERROR FLAG 


SEQ 0051 


N 4 
3-TE16/TU77 CLT 11 MACY11 30A(1052) 21=DEC-78 13:12 PAGE 52 
15=NOV=-78 13:16 SEQ 0052 


122122 W1D3: MPB (R1)+,(R2)+ ;BUMP ADDRESS 
T R2)+ ;BUMP ADDRESS 
000772 ;BUMP CHAR CNTR 


BR 
000762 W1D4: SEE IF WRAP 2 
BE :1F NOT: BR 
ELSE RETURN 
:GO CHECK POSTAMBLE 


m 


BIKARUNASVSVSTRUVLSSaIaar B 


OOOOOOOCOCOCOOOO 
ed aad ceed a cal cat a cee cae co a et cee oe 
dh al al call cll el cl al a ca anal ane eel eld 


wMvivi 


S28 


010740 WID4A: 
W1D5: 


NRNOANO 


011324 


Nm 
oO 


:SET SIZE OF PREAMBLE 
:SET ADDRESS OF PRE 
‘FILL TABLE 

‘SEE IF DONE 

1$ : NOT: BR 

017502 #POST,R1 :SET ADDRESS OF POST 
000050 #50,R “SET SIZE OF POST 
000377 #377, (R1)+ ‘SET SYNC CHAR 

177400 : MO #177400, (R1)+ ‘FILL TABLE 


;SEE IF DONE 
2$ :IF NOT: BR 
PC sRET 


ARO 
S 


000050 
017360 
(R1)+ 
177400 : MO A aa (R1)+ 


FFF 
= 


AXOW 
Mw 
MAMOANO 


& 


S 
geocess 


Mnononoen— vito 
Ww “J 


T 
T 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


ow S 3 3 SS eS 2s SS SS es SS SS SS SS ss ss 


DW 
-OoO 
AAO 
NNN 
On 
fo) 
88 
NOW 
On 
Ne 
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ZEND OF RECORD FORCE SUBROUTINE **se 
INC sSET WRAP FLAG 
[GET MAINT REG 
[CLEAR CURRENT OP CODE 
:SET EOR CLEAR OP CODE 


: OR 
CLEAR EOR AND MM 


abad 
£o 


ARLS 


“N 


MBSERESERE 
oO 
—_ 


C§OSCSCOSCOOOSOSSSSOSOOSCOSSOOOSOOOOCO OOOO OOCOOOOOOOOOOo 


kk kk td od ot od a ot et to oo oo a 
—_ 
~m 
NN 


3SEE_IF GO GONE 
:IF SO: BR 


;AWAIT GO RESET 


Ww 
SSUN 


at 


NO NW 
wnNwY 


:SEE IF ERROR PRINT INHIBIT 
'SEE IF DONE HEADER 
;IF SO: BR 


;PRINT HEADER 

;PRINT EOR GO BIT ERROR 
;SEE IF HALT ON ERROR 
;IF NOT: BR 


FSSENSSSEORS 
S88aS8S88Ec 
$ 


3 
NNN 


a ed ad a ed ed a ae ed ed ed ed a ae eed eed eed 
“N 


NNN NSS 


333 
ge 
S88 


NN 
Nw 


3s 
x 
UNENOO-NN 


N 

SSSS 

Sranr 
8 


sSEE IF WAM 

sIF NOT: BR 

;BRANCH IF NOT WRAP 3 

;WAIT FOR READY 

sSEE IF STATUS CHECK 
E :IF NOT: 
PC ,WSTCK sELSE GO CHECK STATUS 
#400, aSwR ;SEE IF DATA CHECK 
EORPX ;I1F NOT: BR 
PC ,DCHK sELSE GO CHECK DATA 


TEMP2 :CLEAR FLAG 
PC ;RE TURN 


FEBRBUSR ES FRESE 


kaa ni iii ii i a a a 8 kd a nd nd od od I 8 
2-2 


VEALAV SS SINS ARANISSELEFTLALTISSSLSALAN 


2 
2 
re 
2 
2 
Fs 
2 
Fs 
2 
2 
2 
2 
e 
2 
2 
2 
2 
2 
re 
e 
2 
e 
2 
Fo 
2 
2 
2 
Pe 
e 
2 
2 
re 
Ps 





m 
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te 
——us «= TT) 


SESRESLESE B 


rrr 


; SCOPE LOOP ON ERROR SUBROUTINE **#eneneee 


#40000 ,aSwR i SEE IF LOOP ON ERROR 
1$ :1F SO: BR 

PC ELSE EXIT 

(SP)+ RESET STACK 


— Sr os SY 


88 
jelelelelelelelela) 


ad a od od ad ed ed ed ed 
morenronronononofory 
NOKENSRSS 


ascoLP ;LOOP ON ERROR 
: TEST ITERATION SUBROUTINE ***eeeeene 
166414 ITER: #4000, aSwR ;SEE_ IF ITERATIONS 
BE 2 :1F SO: BR 
1$: ITCNT CLEAR Naat COUNTER 


PC ELSE EXIT 
2$: —— D0 fiat ITERATION 


Sees 


2 
2 
2 
2 
r4 
2 
2 
2 
2 
2 
2 
2 


204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
221 
221 
2214 


ws 
oO 


~~ SY 
NILVS 


~ 
oa 


ITCNT 
ITCNT, 1 TAMT 
1$ 


leleleleleleleleleleleioa) 


23 3 3S 
MONMNMONMOPNoNoNofofonofry 


rn 
ab oad 
so 


(SP) + 
@ITRLP,RO 
(RO) 





5 
CZTEBBO TMO3-TE16/TU77 CLT MACY11 30A(1052) 21=DEC-78 13:19 PAGE 55 
CZTEBB.P11 15-NOV=78 13: 


S INITIALIZE SUBROUTINE *®#eexeannn 


#40,acS ZINIT 
*SELECT DRIVE 

“SELECT SLAVE 

UDES.=(SP) [GET TEST'S UNIT DESCRIPTION 
#174377, (SP) :CLEAR ALL BUT DENSITY SELECT BITS 
#1400, (SP)+ ‘BRANCH IF NOT NRZ (800 BPI) 


#40,aDS s;BRANCH IF SLAVE IS IN NRZ MODE 
4$ 3 (PES = Q) 

2s :GO CHANGE DENSITY 

#40,aDS :BRANCH IF SLAVE IS IN PE MODE 
4$ 7 (PES = 1) 

#7,aC1 REWIND SLAVE 

oo WAIT FOR READY 


#29000,aDS ;LOOP UNTIL REWIND IS COMPLETE 
3$ : (PIP = 0) 


UDES,aTC *LOAD UNIT DESCRIPTION 
#2,aDS “BRANCH IF NOT AT BOT 


6 
#25,aC1 ;ERASE TO GET OFF BOT 
#200,.aDs ‘LOOP UNTIL DONE 


166132 : oo :WAIT FOR SETTLEDOWN BIT TO CLEAR 


166110 MO #11,aC1 :DU A DRIVE CLEAR 
166130 _— ;BRANCH IF TE16 


BRANCH IF TU77 (SLVTYP = 1) 


; TAKE ERROR EXIT 
;BRANCH IF OPERATOR SELECTED TE16 


TYPE ‘INCORRECT SLAVE TYPE!!! PROGRAM ABORTED' 
PC, TTOUT 


ATEND, (SP) :GO TO END OF PROGRAM 
PC *RETURN TO CALLER 


7MAG TAPE INTERRUPT HANDLER®**xenexe® 


NOP 
MOV RTRN, (SP) ;SET RETURN TO (RTRN) 
RTI ; RETURN 


Oooo 
= ad ad ad 


™ 
oO 


SASLF 
—M—nr 
N 
NVI 


o 


SSNs 
S28 
NEES 


age 


WWW 
¥ 


MMronomononanononononononfopororoprorfory 
SSSSUR RUE S 


Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


asa ak i a ak at 2d = od 2 2d 2 = a = a 2 2 2 


NM 
* 
_ 
&S 


ZTTY INTERRUPT HANDLER*®**exnenne 
@TKB,-(SP) GET CHARACTER 
#200, (SP) CLEAR PARITY BIT 

og BRANCH IF NOT CONTROL C 


CHNF LG INHIBIT “C IF CHAIN MODE 
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2272 012502 000137 000200 a#200 ;RESTART PROGRAM 
227 815208 000001 1$: #1, (SP) sBRANCH IF NOT “A 
2274 2512 001017 BNE $ 


000176 a #SWREG , SWR ;BRANCH IF HARDWARE SWR INVOKED 


177570 MOV #1 oh SWR : INVOKE HARDWARE SWR 

i SAVE REGISTERS ON THE STACK 

; TYPE “HARDWARE SWR IN USE" 

RESTORE REGISTERS 

;BRANCH IF NOT “G 

000570 : ; INVOKE SOFTWARE SWR 
SGET SOFTWARE SWIT 


CHES 
[POP CHARACTER OFF THE STACK 
[RETURN 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


a at at 
~m 
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15=NOV=-78 


CZ2TEBB.P11 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


(NIWA AI AIIWAIAIAWG 
MONS SS SSSA AAS SSSSs 


012576 
012600 


010146 
011601 
005037 
005000 


T I] 
13:16 


000672 
013056 
000003 
000200 
000015 
000672 
000025 


014645 
013120 


013036 
000672 


MACY11 30A(1052) 
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FERRARA EERE REEEEEEERAEKEEEREREEREEEEREERRERRRERERR EEE 


:TTY ENTRY SUBROUTINE : 


: :INIS SUBROUTINE IS USED BY THE TEST CONDITION 


BE AL 

AND MUST FALL WITHIN THE LIMITS SET BY 

THE CALLING ROUTINE. 

iF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
A QUESTION MARK IS TYPED (?) AND THE RESPONSE 

“MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 

[MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 

; CARRIAGE RETURN 


LARA EREERERKREEREEERRRERERERREREEEEREEKE EE 


R1,-(SP) 7 SAVE CHAR COUNT 
(SP) ,R1 sRESET CHAR COUNT (FOR “U) 
TEMP} :CLEAR FIRST CHARACTER FLAG 
PC,TTIN GO READ ‘oes 
3,71B [RRANCH IF NOT 

sRESTART AT 200 

SEE IF CR 

:1F NOT: BR 

[SEE IF FIRST CHARACTER 

SO: BR 


iF 
SELSE GO LOAD VALUE 
BRANCH IF NOT CONTROL. U 


7 TYPE<CR><LF > 


BRANCH IF NOT *RUBOUT' 
;REMOVE LAST TYPED CHAR 


s TYPE ‘\° 


coor CHAR RECEIVED COUNT 
1$ :GET NEXT CHAR 

#60,71B 2 SEE IF CHAR IS LESS THAN 0 
4$ NOT: BR 


PC, TTOUT 
RI 


TO ERROR 
1: BR IS GREATER THAN 7 


6 TO ERROR 
‘SET FIRST CHARACTER FLAG 
sSHIFT 3 LEFT 


SEQ 0057 





aon 
NAY 


EBBO eat Pe hd ct II 
EBB.P11 15=NOV-78 13:16 


01277 
01 


at 
ae 


042737 
053700 


177770 
000614 


a 


EERE | 
: 


NOUSWN —OOONO 


013036 


NOKNO 


013036 


nonenononsnofononernerenern 
WANANWAAS 

DD AAASIAIST 
elelelelelelelelela) 

> + ts 4 ss SS) 3 
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000614 #177770,T1B STRIP ASCII 
TIB,RO LOAD CHARACTER 
;SEE IF oy 


7 1F NOT: 
i SEE IF EXCEEDED MAXIMUM LIMIT 
F NOT: BR 


TELSE GO_TO ERROR 
41 id BELOW MINIMUM L iMIT 


NOT: 
SELSE GO TO ERROR 
[LOAD VALUE 
POP CHAR COUNT OFF STACK 
sexi 
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2358 

2359 

2360 

2361 013036 
2362 013042 
2365 013046 
2364 013050 
2365 073054 
2366 

2367 

2368 

2369 013056 
2370 013062 
2371 013066 
2372 013070 
2373 013076 
2374 013104 
2375 013112 
2376 013116 
2377 

2378 

2379 

2380 013120 
2381 013124 
2382 013132 
2383 013134 
2384 013142 
2385 013144 
2386 013150 
2387 013152 
2388 013160 
2389 013164 
2390 013170 
2391 013174 
2392 013200 
2393 013202 
2394 013204 
2395 013212 
2396 013216 
2397 013220 
2398 013224 
2399 013226 
2400 013234 
2401 

2402 

2403 

2404 

2405 013236 
2406 013244 
2407 013246 
2408 013252 
2409 013254 
2410 013256 
2411 013262 
2412 013264 
2413 013270 


004 
000137 


000612 
00004 3 
000045 
013220 
000015 
013220 
000004 
000612 
013220 


000012 
013220 
165352 
000612 


000001 
013472 


013472 


013452 
013414 


MACY11 30A(1052) 


000614 
000614 
000612 


000612 
000612 


000612 


000612 


165344 


013472 


TINER: 


TTOUT: 


1$: 


2$: 


TOG: 
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;TTY ENTRY ERROR SUBROUTINE **saennnae 
vm #MSG40,R4 


SR PC, TTOUT ;PRINT? 
TST (SP) + [POP CHAR COUNT OFF STACK 
SUB #20, (SP) RESET SP TO START OF VALUE ROUTINE 
RTS PC ;REDO VALUE ENTRY 
i TTY READ SUBROUTINE ****aeene® 


z:MOVE CHAR TO TTY OUPUT BFR 
sECHO CHARACTER 
TTY OUTPUT SUBROUTINE s**aeeeenenn 


MOVB (R4)+,T0B 
CMPB #43,T0B 


BEQ TEX 

CMPB #45 ,T0B 

BEQ 1$ 

JSR PC,TOG 
TTOUT 


JSR PC,TOG 

MOV #4,R 

CLR TOB 

JSR PC,TOG 

DEC R3 

BNE 2$ :DO FILLERS 


TTOUT 
TSTB aTPs 
BPL TOG 
MOVB TOB,aTPB ° 
RTS PC 


MOV #1,0FL 
BR 


OC TPE i 
s. cin OFL :CLEAR FLAG FOR LEADING ZERO 
: MOV R3,R4 : SEE IF NUMBER IS ZERO 
BNE OCcTPO :1F NOT ZERO: BR 
TST OFL ;SEE IF PRINT ALL O 


:IF SO: BR 
SELSE PRINT ZERO 
JMP OC TPS SPACE AND EXIT 


SEQ 0059 
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100000 OCTPO: #100000 ,R4 sSEE IF MSD = 1 
B OCcTP1 :1F NOT: BR 


900001 1,R4 
013430 sPRINT 1 
013324 OCTP2 


RS 
013430 J :PRINT 0 
R3,R4 


— 


RS Sh ho 8 ho SS SS Sa a a a eet 
WW 
“N 
xs 


S88 


POSITION DIGIT 


WWIWNIWNIWNAININAAG 


R4 
013430 PRINT DIGIT 2 
R3,R4 


RS 
013430 SPRINT DIGIT 3 
R3,R4 


4 
013430 SPRINT DIGIT 4 
R3,R4 


WWWNWWWWNWWWIANWNIWNNWNWW 
W . GN 


SENSES 


013430 “ 
013430 J PRINT DIGIT 5 
000240 000612 OCTP3: 240 
013220 J PC,TOG PRINT SPACE 
R PC sEXIT 
177770 OCTPG: #177770,R4 
BN G 


OC TPGO 
013472 OF L 
OC TPGO 
PC 


KEEEEERE 
RVEORVS 


013472 OCTPGO: OF L 
000260 OCTPG1: #260 ,R4 
1 MO R4,T0B 


00 ’ 
7 013220 PC,TOG 
e 


EERE KES 
SEVRENS KOKKS 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 


Ww 
* 
N 
Nm 


FIRST CHAR FLAG 
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:DATA CHARACTER OUTPUT SUBROUTINE ***xexxenenn 
#10,R4 ;SET NUMBER TO PRINT 
R3,T0B 


000612 
165050 
165040 


013703 
000303 
004737 013474 
013703 000676 
004737 013474 
000207 


010304 
000304 


3 


GET FIRST DIGIT 
013654 PRINT 
GET SECOND DIGIT 
PRINT 


013654 


RRRARRAOS 
SANSANS 


Ww 
N 


01 
01 
01 
01 
01 
01 
01 
01 
01 
nN" 


4 

013654 sPRINT THIRD DIGIT 
R3,R4 

013654 ;PRINT FOURTH DIGIT 
PC sEXIT 


000260 000612 SNPG: MOV #260, T0B 

177760 B #177760,R4 

000612 R4,TOB 

013220 PC, TOG : TYPE DIGIT 
000207 PC RETURN 


Sfeee 


OOOO VOO0O- 
pee Poe ee PP PI 
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ll 3 rl a A CLT Il 
-P11 15=NOV-78 13:16 


;THIS ROUTINE GETS THE NEW VALUE FOR THE SOFTWARE SWITCH REG 
022737 000176 000570 GTSwR: A#SWREG , SWR 7BRANCH IF SOFTWARE SWR NOT 
1032 BNE 1$ : INVOKED 
SAVE REGISTERS ON THE STACK 
TYPE ‘SWR = ' 


.GET CURRENT SETTING 
ZAND TYPE THEM 
sTYPE ° NEW = ° 


TTR ROUTINE RETURN _NEW VALUE TO (R5) 
:LIMIT RESPONSE T CHARS 
sBETWEEN 0 AND 177777 


PC,TIR :GET RESPONSE 
014020 PC, .RESTORE sRESTORE REGISTERS 
013774 1$: PC RETURN TO CALLER 


; ROUTINE TO SAVE RES os ON er STACK 
013776 -SAVE: MOV %5,-(SP) 
014000 


%0,-(SP) 3:RO IS SAVED AT (SP) 
000014 14(SP) ,-(SP) 2 2PUSH_ RETURN PC _ON THE STACK 
014016 PC ;sRETURN TO CALLER 


; ROUTINE TO ant} REGISTERS SAVED ON THE STACK 
014020 : 000014 cuniiane’ “g SP)+,14(SP) :-STORE RETURN PC ON STACK 


(SP) +, 45 
PC 
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CZTEBB.P11 15=NOV=78 13: 


SMESSAGE TABLE *«**eeennne 
Ose MSG1: -ASCII"%%ZTMO3-TE16/TU77 CONTROL LOGIC TEST PART II (CZTEBBO)';++8 


— 
a 


022445 


BE 
MmMO—NAOr 


—_ —3 3 
SEES 
oeooe 
MmMEAOr 
2ss3s23sc 
NRwMm ai 
MANE WAN 


/%***ASSURE TAPE IS AT BOT***/ 


ooo 


047502 
020105 /4TYPE <CR> TO TERMINATE RESPONSE & “C TO RESTART%#/ 


RSUTSVRRAVERS 


ee ek ce ed ed od od od od ed od 
BRE RERRE RRR S 


esssscooscooooocoooooeoooo 
S 
MoPoNononor 


RSVR 


052122 
052120 047055 MSG6: .ASCII /EXPT=-NOT RECVD&/ 
ait 041505 
026504 MSG7: .ASCII /RCVD=-NOT EXPT4/ 
054105 


026516 MSG9: .ASCII /%NON-EXIST SLAVE #/ 
020124 
020105 


042101 MSG10: .ASCII /%READ CONT BUS PAR #/ 
020124 
040520 
052111 MSG11: .ASCII /%WRITE CONT BUS PAR #/ 
052116 

0 050040 

050130 020124 MSG12: .ASCII / EXPT #/ 

041522 042126 MSG13: .ASCII / RCVD #/ 


020122 044502 MSG14: .ASCII /%AR BITS 4-04/ 
032040 030055 


051115 041040 M5G15: .ASCII /%MR BITS 15-74/ 
020123 032461 


4 
052111 051105 MSG16: .ASCII /RITER: #/ 
014454 043 





M 5 
CZTEBBO TMO3-TE16/TU77 CLT MACY11 30A(1052) 21=DEC=78 13:12 PAGE 64 
CZTEBB.P11 15=NOV-78 1 


2607 4 041040 MSG18: .ASCII /%TC BITS 12-0 #/ 


ee 


MSG19: .ASCII /%FC BITS 15-0 #/ 


MSG40: .ASCII /.? &/ 
MSG41: .ASCII /%%END OF PASS #/ 


MSG44: .ASCII /ZREGISTER START: #/ 


FREER RRS 
COVWONAUSWN=O 


MSG45: .ASCI1 /%VECTOR ADDRESS: #/ 


MSG57: .ASCII /%TMO3 DRIVE: #/ 


"ZTE16/TU77 SLAVE: #°;++B 


/%A/ 
/\A/ 
/%REMOVE TMDP FROM SLAVE TO BE TESTED%A/ 


/%HARDWARE SWR IN USE%A/ 


/%SLAVE TYPE (O=TE16,7=TU77): &/ 


/%RINCORRECT SLAVE TYPE!!! PROGRAM ABORTED%4/ 


052122 042105 
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CZTEBBO TMO3-TE16/TU77 C MACY11 30A(1052) 21=DEC-78 13:12 PAGE 65 
C7TFBB.P11 15=NOV-78 


TEST HEADER st eeanenen 


022445 MSLT1: .ASCII /%%LOGIC TEST 1: WRAP 3,NRZ,NORMAL ,ODDA/ 


wu 


/%%.0GIC WRAP 3,PE,NORMAL ,ODDA/ 


RGGAR FGEGSS 


NNNQOUWUIS Swine 


/%%LOGIC WRAP 2,NRZ,NORMAL , ODDA/ 


jelelelelelelelelelelelelelelelelolo) 
3 SS a 
DAA ADIT IIIT 
NORD 2 SS SS 


wR 


/%%L0GIC WRAP 2,PE,NORMAL ,ODDA/ 


/%24L0GIC WRAP 1,NRZ,NORMAL ,ODDA/ 


/%%L0GIC WRAP 1,PE,NORMAL ,ODDA/ 


507 
23 
27 

7054 
1117 
17 
07 
23 
27 
54 
2 


So 
LUM 
oO 
WwW 
LAS) 


042104 
043517 MSLT7: /%%LO0GIC WRAP 0,NRZ,NORMAL ,ODD#/ 


047454 
043517 MSLT10: ASCII /%%LOGIC TEST 10: WRAP 0,PE,NORMAL ,ODD#/ 


30040 
026105 04 zits 





PAGE 66 
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15=NOV=-78 


soa TMO3-TE16/TU77 ea . MACY11 30A(1052) 21=DEC-78 13:18 
CZTEBB.P11 716 


CORE DUMP WRITE (M8906)4/ 


/%RL0GIC TEST 16: CRC CORRECTION SINGLE TRACK,ALL FRAMESA/ 


/%RLOGIC TEST 13: EVEN PARITY WRITE (M8933 M8934)a/ 
/BRLOGIC TEST 17: CRC CORRECTION MULTIPLE BAD TRACKS#/ 


s 
, 
# 
: 
5 
% 
: 
& 


/%%L0GIC TEST 14: EVEN PARITY READ(M8933 M8934) 4/ 


/RX_OGIC TEST 15: READ REVERSE (M8906) 4/ 


/%RLOGIC TEST 11: 


ASCII 
ASCII 
ASCII 

: .ASCII 
ASCII 
ASCII 
ASCII 


517 MSLT11: 
3517 MSLT14 
3517 MSLT16: . 
3517 MSLT17 


044507 MSLT13: 


69333833 
pases sopnse pA pe ete Say Ava 
rows 
RODS 


xo —Nonek sO Rade S 88a aaa speech ters 


33 sass BRRMNRRT IAS Mi ccccnssoll BEILSRE ERS 


AAA AAA SoDSooOOODOOOOS 
RRAIAAAAARARARRRARARA NARA AA SSOCSSESSTOSOOSOSOS OOOO NG 


SOOOOSOSSOSOSOSOOOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSSOSOSOSSOSOSOSSSSSSSOSSOSSSDSOS 


PSSST COC IN RRAMAMBMARMRNSS SPER EREREG naw Ay ~229- wOsS S's 3 
Pre eo WJ WAN OO Oo 
rR LAR VPRO NRRRRK RRR RRR LLLRELLRY 


ENEMENT NE SLNE NNT NTS TNT ANT ANTANLANTANTLAYTANT ANTAL ANTANTANTAYLANTANT AT ATANTANTATANTANT AT ANTNTANT AS 


04 


SUS 
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CZ7TEBB.P11 15=NOV-78 


ie 
= 
= 
oo 
—~— 
NO 


sae 


MSLT20: .ASCII /%%L0GIC TEST 20: READ REVERSE.NRZ,WRAP 34/ 


R 


elelelelelalelolele) 


ERERRERR 
SBE 
oo 
ROLES 
= 
AEWONMUNWEW 


05 
72 05 
a) 


oo 
mou 
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CZTEBB.P11 15-NOv-78 13: 


2779 
2789 ; TAG MESSAGE 


051445 051127 036440 SMSWR: .ASCII /%SWR 
02144 


0 
040 053505 036440 SMNEW: .ASCII / NEW 
021440 


I 
6 


3 


-EVEN 
WRITE BUFFER 


SZIFIPISISSSISIZ 


3 
2 
2 
2 
r4 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


SSSSSSSSSSSS SSS SS Ss 


ENYSRRANSKEYVSRRVSSRVSS 


177777 


oO 
n 





6 
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CZTEBBO moss 16/177 CLT I] 
CZ7TEBB.P11 15-NOV-78 13:16 SEQ 0069 
2835 016456 177777 -1 
2836 016460 177777 -1 
2837 016462 177777 -1 
2838 016464 177777 “1 
2839 66 177777 -1 
O 016470 177777 -1 

2841 016472 177777 -1 
2842 016474 177777 -1 
28435 016476 177777 -1 
2844 016500 177777 -1 
2845 016502 177777 -1 

016504 177777 -1 
2847 016506 177777 -1 
2848 016510 177777 -1 
2849 016512 177777 -1 
2850 016514 177777 -1 
2851 016516 177777 -1 
2852 016520 177777 -1 
2853 016522 177777 -1 
2854 016524 177777 1 
2855 
59 

READ BUFFER 

2858 
<859 016526 000100 RDATA: 
2860 016526 000000 
2861 016530 000000 

016532 000000 
2863 016534 000000 

01 000600 
2865 016540 000000 
2 016542 000000 


oO 
So 
— 
oO 
Ww 
Ww 
o 


“J 
Co 
“N 
Ww 
So 
—> 
Oo 
z 
QDSODWOOVOSCOVBVDVDIOVWVDOOVOOGOOCOCOVOOCCCCCC D 


000000 
2879 016574 000000 
2880 016576 000000 
2881 016600 000000 
2882 016602 000000 
2883 016604 000000 
2884 016606 000000 
2885 016610 000000 
2886 016612 009000 
2887 016614 000000 
2888 016616 000000 
2889 pieeey 0 


00000 
000000 


a 
on 


F 6 
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I 
CZ7TEBB.P11 15=NOV-78 13:16 


oO 
= 
g 


ae 


RFF 
BoRRREeee 


a ad tk ed = ot 8 2 23 2 28 28 6 2 2 os 


lelelelelelelelelse|elalelelelele| es |elelels\s) 
SEeSREEES 
RNS or 


BYYYYByBy 

OnNOULSW-O 
ag 
So 


0 
Q 
0 
) 
0 
0 
0 
0 
0 
0 
i) 
Q 
0 
Vv) 
0 
0 
0 
0 
0 
0 
9 
0 
Q 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 


;WRAP AROUND MESSAGES####ss 
ei, & : ASCII /&SETUP ERRORY/ 


ASCII /%PATRN NUMBER = #/ 


eASCII = /2%NONWEXISTANT DRIVE%&/ 


R 
So¥ROG 
RRR 
DID SUSAN SVS ST ION 


/%CS1 &/ 


/%CS2 a/ 
021440 WMSG6E: . /2DS #/ 


043 WMSG6F: . 
021440 : 
043 


COOOCCOOSCOCOCOCOCOCOCOCOCOOo 
anh ao aah aad and a ae cet cd ea ct ae el 

N YN 

R ® ® 

SLO 

RRRRRR 

ee er 
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CZ7TEBB.P11 15-NOV-78 13: SEQ 0071 


2947 017071 045 02144 
2948 017076 
2949 
2950 
2951 


3 


oO 

— 

N 

— 

°o 

w 
DVS SVS 


ER 


/%SN #/ 

/%BAD DATAM/ 
/%4G: &/ 

/%B: &/ 

/%CN: #/ 

/%BAD STATUSA&/ 


/%NO I. TERRUPTA/ 


aR AR 


SNNN NNN NS 
ee ee a a a | 
HASLER RASS 

wo— 
gk=se 
N PONS —ONRN —]—WW 


— N=—NO-oON 


aS) 
& 
RRGR KRLRREKR RK 


/%NO CLOCK UPM/ 


SLRRVRGNEORE 


7%NO CLOCK DOWNA/ 


PN i 
= 
* 


nono 
RSH 


/%DATA PAT: #/ 
/%BAD PREAMBLE#/ 


onNWwN 


ROR 
MOVIN ES UWNUES SUE UI 


NNN 
MmNron 
wns 
Mor 


So 
wi 
Na— 
—™ 
R VW 
OnNoO-o- 
MIWYINI ES AAW Ww 


Meso 


/%BAD POSTAMBLEA/ 


0) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


_— Ss ot SS 2 2 8 2 2 es 
NN 


/%EOR CLEAR DID NOT CLEAR GO%4/ 


040 : ASCII / PATRN #/ 
020116 


017360 -EVEN 
000000 : 


elelejlelelelelelele) 

~~ S e 

RARARRRR 

MOAKNO 
DOOOOCVOOOOVDVCOSCOSOO0O 





H 
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I] 

COTEBS. P11 15-NOV-78 13:16 
3003 017424 
017426 


Seeseee | 


vueusaseaay 
SOMNOnRW=O 


) 
Q 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
U 
0 
0 
0 
0 
0 
Q 
9 
0 
Q 
0 
0 
0 
0 
0 
0 
0) 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
Q 
Q 
¢C 
0 
] 
Q 
0 
0 
0 
Q 
Q 
Q 
0 


000000 
000000 
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CZTEBB.P11 15-NOV=-78 13: SEQ 0073 


lolalelelelelalele) 


017624 
020236 


" 
+ 
* 
_ 
oO 


000000 
020236 
000000 


Or 


000001 
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CZTEBBO TMO3-TE16/TU77 CLT I] MACY11 30A(1052) 21=DEC-78 13:12 PAGE 75 


CZTEBB.P11  15=NOV=78 13:16 CROSS REFERENCE TABLE =- USER SYMBOLS SEQ 0074 
ADLFL 000744 769" 
S 000526 
ASF 000726 2628 
ATAF 000716 7584 
, 000514 6814 = 1515* 
CC 000530 6874 
001260 876# 881 892 974 1022 1039 2269 
CRCDAT 344 1268* 1270 1273 1275* 13084 1331" 1332% 1351 1491 
CRCFLG 001020 7914 * 1265" 1267* 12948 1327* 13308 13508 1497 1778 
CRCNT 72 780# «61785* 1852 1881* 1894* 1953 1974" 1998 2027 2046* 2054* 2091 21168 
CRCPAT 342 1255* 1271 1272 12978 1299% 13074 1319% 1332 
cS 000520 6834 978%  982* 984 1516 1657* 1725 2219% 2220s 
Ci 000510 6798 919 983 1501" 1544* 1569* 1658* 1719 2153 2175 2231% 2239% 22448 
DATAD 0007 774 1448% 1463% 14728 14768 1491" 1515 
DATAO 001032 8044 
DATA1 0010 8054 
DATA2 001036 
DATAS 00104 807# 
DATBL 001032 8034 1410 
DATC 000752 772H# «= 1447* 1462 1490 1528% 15298 1530 1531% 1543 1582 
DAT 005136 804 14204 
DATIA 005142 1353. 1421 = 1430 «1435 =: 1440 
DAT2 005156 80 14294 
DATS 005162 806 1434 
DAT4 005170 807-1439 
532 6884 
DCHK 007410 1700 1777 «©2183 
DCHKA 007506 1790 9 17944 
DCHKAO 007462 1787 «17894 
DCHKA1 007536 1796 1798 1800# 
DCHKA2 007574 1803 18084 
DCHKB 007646 1809 1811 1814 18184 
DCHKBO 007656 1807 1820 
DCHKC 007716 1826 1829# 
DCHKD 007724 1824 18314 
DCHKE 010272 1788 19024 
DCHKFL 001016 7904 1372e 1375" 1781 
DCHKX 010232 1817 1883'S s«1887/—S «41889 =©1977 1981 _~—s.2051 
DCHKX1 010250 1780 1890 1892 1894# 
DCHKO 007726 1822 1828 «= 1830—S-s«*1832% =: 1885 
DCHK1 007760 1837 18404 
DCHK1A 010016 1841 18484 
CHK2 010106 1833 1835S: 18624 
DCHK2A 010152 1868 18744 
DCHK2B 010154 1863 1866 1871 1873 1875¢ 
DCHK3 010202 1879 18814 
DCKEP 010700 1960 1967 1982 
DCKEPO 010732 1987 19894 
DCKEO 010332 19114 1980 
DCKE1 010342 19144 1920 
DCKE10 010624 1933 1935 = 1969# 
DCKE11 010664 1976 19784 
DCKE12 010674 1979 19814 
DCKE2 010352 1915 1917# 
DCKES 010362 1918 19214 
DCKEG 010404 1925 19284 


K 
CZTEBBO TMO3-TE16/TU77 CL MACY11 30A(1052) 21-DEC-78 13:12 PAGE 76 
CZ2TEBB.P11 15=NOV-78 1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0075 


010416 
010454 
010512 


000764 
013474 


KILLS 
gee 


wn 2 oe 
N“N 
— OOkW oO . 
Ww VINnvuMm fe 
» 


+ 


013552 
000622 


= a abadad 
Tevess WUVTO 


—— 
TERR 


1734* 
15594 


1626 1045 
16114 


006514 
000516 





6 
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CZTEBB.P11 15-NOV-78 13:16 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0076 


1471* 1478* 1489% 1544 
1755 yer 1783* 1836 1848* 1895* 1936 1950* 1997% 2014 


1178 1198 1303 1356 1376 
1003 1019* 1020* 


1543* 1561 1625* 1629* 1632* 1633* 
1663 1665 6 


014431 
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CZTEBBO TMO3-TE16/TU77 CLT II MACY11 30A(1052) 21-DEC-78 13:12 PAGE 78 
CZTEBB.P11 15-Nov-78 13:16 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0077 


014447 


10 
11 
11 
Ti 
12 
12 
12 
12 
13 
10 
13 
10 
11 
11 
11 
11 


FW OMANNUIN —OOAKnUW 
MMWWUIDMOANNNNOO 


1767 1771 1847 1853 1947 


24474 


20124 





CZTEBBO TMO3-TE16/TU77 CT 


CZTEBB.P11 


000612 
002250 


15-NOV-78 1 


924 
101de 


MACY11 30A(1052) 


N 6 
21=DEC-78 13:12 PAGE 79 


CROSS REFERENCE TABLE == USER SYMBOLS 


1014* 


2052* 


1492 
1638* 
1283* 


1392 1503 


1820 2063 30694 
1642* 
1374* 1600 


1257* 1321* 1370% 


SEQ 0078 





ccresso TuOS-1E 16/1077 Cy jj MACY11 30A(1052) 21-DEC-78 13:18 ace 80 
Cc : CROSS 


$0" a 
16 94 


1 1 
ye 
2 284 aa 


1688 .P11 5-NOV-78 REFERENCE TABLE <= USER SYMBOLS 


8 
2 


~ 
3 oo 
NO 
rw 
m 


2221* 2236* 


Nononon — — nn 
BE OF SNS 
wo— 
ss 
Of -SWwMVY 
EN@ LIZ & 
Ra 


& 


& 
uw ONu 


Roa 
Sra 
* 


rrr 
eae. 
233 
Of 
Mmronr 
kl 
S33 


3 


PV S5' 
w= 
NWNO 





7 
CZ7TEBBO TMOS-TE16/TU77 CLT I] MACY11 30A(1052) 21-DEC-78 13:18 PAGE 81 
CoTEBe PTs 15-Nov-78 13:46 CROSS REFERENCE TABLE <= USER SYMBOL 


1791 1810 
1aeee 1470* 
1789 179 1800 


Nm 
_ 
~N 
aron 
diay 
ae) 


1328 


a a) 
ks 
‘go 


Seas 


~~ oe 


14604 


Oo 


S38 ke 


— aS SS 43 


VNVo 

ee ety AS) 

- 7 
8 


ees 
wor 
sean 
_ 
Ww 
_ 
a 
Ww 
aes, 
Moco 
aww 
oa 


see 
see 

—o ~w 
Rak VE 
sees 


MONO SABALO= 
Ww) Ww 
et 
Ww—\In— Ww 

. ) 

—_ — la— 

ERE RAR 
tt 
NON ONS NO 


Sere Set 


Quinw 
_ 
~ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Oo 


33 


ed” ete 6 eT - 


2 


NVON™N 

EERO AAS 
=n * ~N 
mvI~N wm oO 


oooo 
WW 
NMUO 


NNNANNNYNSNY SYN 
SS 


_——OO 
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ig TeBe TMOS=TE16/TU77 CLT I] MACY11 30A(1052) 21-DEC-78 13:19 PAGE 82 
CZ7TEBB.P11 15=-NOV-78 13:16 CROSS REFERENCE TABLE == USER SYMBOLS 


017115 
000776 1405*  1406* 1505 
007010 


1696 
7 1729 1742 17498 
78% 
1746 1751 1754 


754 3a 1481* 1536* 1539* 1598 1602*  1604* 


83s 


g 


lelelelelelelelelele) 
pm ee pe  P 


2065 2071 2097 2118 


1886 
13094 


= BEES 


So 

AMM 
NWANAWAG 
eee 

AOnronw 


6454 6678 6518 657% 662% 666" 6718 6768 
25424 
25324 





CZ7TEBBO aad ALS a T MACY11 30A(1052) 21-DEC-78 13: 3S 6 PAGE a. 


II 
CZTEBB.P11 15=NOV=78 13:16 CROSS REFERENCE TABLE == MACRO NAME 


- ABS. 020240 


ERRORS DETECTED: 0 


DSKZ: Lae OSKE: CZTEBB. SEQ/CRF /SOL=CZTE AB. SML/ML ,CZTEBB.P11 
RUN=T IME : -9 SECONDS 

RUN-T IME RAT{0: be 10.9 

CORE USED: 9k (17 PAGES) 





